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DISCLAIMER 



These MTS writeups are intended to represent the current state-of-the- 
system- This publication must not be construed as an obligation to 
maintain the system as so stated. The system is still being developed and 
additions, extensions, changes, and deletions will occur. At times these 
changes may result in some parts o± the new system being incompatible with 
their corresponding parts of the old system. 



Preface to the Second Edition 



The first edition was published in June. In September we began 
collecting corrections for issuing a set of changed pages and discovered 
that we would be replacing two-thirds of the pages in the manual. Hence 
this new edition. 

In an attempt to make things easier for people acquainted with the first 
edition, revision bars have been placed in the margin alongside of changed 
lines. If a section is completely replaced or is new, a revision bar is 
placed alongside of the section number only. 

To keep the sizes manageable and to logically split the manual, a new 
major section (MTS-500) was created and made Volume II. This section is 
comprised of the IOH/360 and OMIST (change in name only) writeups, the bulk 
of the Fortran G (*FOfiTRAN) and assembler (*ASIIBLR) writeups, and four new 
writeups. Also the two sections of subroutine writeups (253 and 254) were 
combined into one section of subroutine descriptions (253). In addition, a 
list of major differences from the first edition follows: 

New Sections 

Introductory and Usage Writeups 
Calling Sequences 
Data Concentrator User's Guide 
General view of UMHPS and MTS 
10 50 User's Guide 
2250 User's Guide 



Language Processors 
PII writeup 
SN0B0L4 writeup 
WATFOR writeup 
8ASS writeup 

Library File Descriptions 

*ASa *ASMEDIT 

♦CATALOG ♦CONVSNOBOL 

♦FILEDUHP *FILESCAN 

*GPAKGRID *GPAKLIB 

*GRAPHMAC *IHC 

♦OSMAC *PAL8SS 

*SDS *SN0B0L4 

*SSP *UPDATE 

♦WATFOR *WATLIB 

♦8ASS ♦BSSPAL 



♦BATCH 

♦DOUBLE 

♦GPAKDRAW 

♦GRAPHLIB 

♦LINPG 

♦PIL 

♦SQUASH 

♦WATERS 

♦2250 EDIT 



Macro Descriptions 

fiCCEPT BAS,BASR DFAD, DFSB,DFI1P 

DFIX,EFIX DISMOUNT ENTER 

EXIT FLOAT GETSPACE 

MOUNT SCARDS, SPRINT, SPONCHrSERCOM, READ, WHITE 

SLT SHPR 

Subroutine Descriptions 
ATTNTRP Bitwise Logical Blocked I/O 

EMPTY E7090,D7090,E7090P,D7090P 

lOPMOD LINPG REWIND 

REWIND* SETIOERR SETPFX 

Extensively Changed Sections 

Files and Devices (MTS-210) 
IOH/360 (MTS-530) 

Change of Name 

UMIST (was THAC) 
LISTVTOC (was CATALOG) 

Other major new features, in addition to the new library files, 
subroutines, macros and language processors listed above, are explicit and 
implicit concatenation of files (see HTS-210) , ability of the user to 
specify a password (see descriptions of the $SET and $SIGNON commands) , and 
the ability of a batch user to specify time, page, and card limits for his 
job (see Limits Specification, section MTS-225) . 

Donald W. Boettner 
Computing Center 
University of Michigan 
Ann Arbor, Michigan 
December 1, 19 67 



PREFACE 



This manual represents an attempt to document, for the benefit of both 
users and the people working on it, a rapidly changing system^ The system 
described here is essentially the system as it existed about June 1, 1967. 
By the time anyone reads this, various parts of this manual will most 
certainly be obsolete. 

The Computing Center would like to acknowledge I.B.H. for sections, 
primarily listings of error comments, from their Fortran IV [G] 
Programmer's Guide and Assembler F Programmer's Guide which are reproduced 
here. 

Acknowledgement should also be made to the numerous people who helped in 
preparation of this manual, especially fionald Srodawa, for the Teletype 
User's Guide and Loader Description; Leonard Harding, Fortran writeup; 
Larry Flanigan, Concepts and Facilities; Charles (Kip) Moore, File Routines 
Internals; Fred Swartz, Batch User's Guide; Allan Emery, 2741 Osers Guide 
and descriptions of debug commands and routines; Jay Jonekait, Tape User's 
Guide; Vic Streeter, Assembler writeup and plotting routines descriptions; 
Charlie Benet, for lOH writeup; Dave Mills, Data Concentrator User's Guide; 
Michael Alexander, proofreading and revision of the manual; and last but 
certainly not least, Karen Dymond, for keypunching this whole mess in 
TEXT90. 



Donald M. Boettner 
University of Michigan 
Computing Center 
June 1, 1967 



VOLUME I 



This comprises the first volume of the HIS nanual. It contains writeaps 
concerned with use of MTS and use of the language processors within MTS, 
whereas the second volume contains writeups concerned with the content of 
the languages available. 

A complete table of contents which covers the entire manual follows- 



COMPLETE TABLE OF CONTENTS 

VOLUME I 6 

GENERAL INTEODOCTION 21 

USAGE DESCRIPTION 22 

Concepts and Facilities. • 23 

Calling Conventions 30 

Introduction 30 

Register and Storage Variants of Type I Calls 31 

Parameter Lists 31 

Register Assignments 32 

Returning Results ..i,34 

Save Area Format - 35 

Calling Program Responsibilities and Considerations .........36 

Called Program Responsibilities and Considerations. ......... 37 

Example Calling Sequences • 37 

Macros for Calling Sequences 39 

Batch User's Guide '^O 

Batch Jobs '*0 

Advantages and Disadvantages of Batch 1*0 

Differences Between Batch and Terminal Use ..41 

Useful Hints for Running a Batch Job 41 

Examples of MTS Batch Jobs , . i 41 

Terminal User's Guides ....44 

Teletype User's Guide - 45 

Introduction ....45 

Initiation Procedure ..45 

Keyboard Operation .....46 

Attentions '♦9 

Normal Termination Procedure -- 50 

Sample Session - 51 

Translation to and from ASCII. ...*... 53 

IBM Terminal Type 2741 User's Guide *.... 57 

Introduction ...-57 

Terminal Procedures: 57 

10 50 User's Guide 60 

2250 Model I Display User's Guide .........61 

Initiation ...... m 6^ 

Conversational Operation ....61 

Tape Users Guide 63 

Introduction 63 

Basic Concepts 63 

COMPLETE TABLE OF CONTENTS 7 



7 and 9 Track Tapes .-..,.....63 

Odd and Even Parity ....63 

Densities , ,. ..63 

Translator and Data Converter ,64 

File Protect Ring 64 

Secord Size 64 

End of Tape Area .............65 

Pseudo-Device Names ..65 

Using Tapes 65 

Mounting a Tape » ..65 

Bemoving Tapes .«.66 

Data Transmission ..66 

Eeturn Codes. 66 

Control Functions ..........67 

Paper Tape User's Guide , -...69 

Data Concentrator User's Guide (Teletypes, 2741s, Bemote Computers). . .70 

The Data Concentrator -.70 

MTS Interface 70 

Message Formatting ....^.75 

Use of Data Concentrator by HTS Jobs ..76 

AT&T Models 33/35. .77 

IBM 2741 Typewriter Terminal 78 

Remote Computer Terminal Transmission Facilities ..79 

UMMPS and MTS: A General Description of the Operating System ...... 81 

UMMPS . 81 

MTS 82 

EXTERNAL SPECIFICATIONS 84 

Files and Devices *.85 

Files .....85 

Implicit Concatenation .......85 

File Names .......86 

Device Names .86 

Pseudo-Device Names 87 

♦ DUMMY* 87 

*SOURCE* 87 

*SINK* 88 

*AFD* i ...... 88 

♦PUNCH*. . 88 

♦MSINK* 88 

*MSOUECE*. . ...... 88 

Modifiers «...88 

Line Number Ranges , -.90 

Explicit Concatenation, ..91 

Usage ...91 

Input Lines .93 

Commands .........93 

Data Lines. .... ..........93 



Prefixing . . 
Editing . . . 
Continuation. 



Limits Specification 



Commands . 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 



ALTER. ....... 

COMMENT 

COPY . 

CREATE 

DESTROY. ...... 

DISPLAY. -..;.. 

DUMP 

EMPTY 

ENDFILE 

ERRORDUMP 

GET 

HEXADD,HEXSUB. . . . 

LIST 

LOAD 

NUMBER 

PASSWORD 

RESTART 

RUN 

Library Facility. , . . 
Parameter Specification 

Name: SET 

Name: SIGNOFF 

Name: SIGNON 

Name: SINK 

Name: SOURCE 

Name: START 

Name: UNNUMBER 



Data Lines . . . 
Line Numbers. 



User Programs. ■ 

User Program Constraints 

I/O Routines - Parameter Description 

Subroutine Descriptions .. 

MTS system and Library External Symbols 

Name: ATTNTRP 

Bitwise Logical Functions ■ 

AND,LAND,0R,L0R,X0R,LX0R,COMPL,LCOMP,SHFTfi,SHFTL. 

Name: Blocked Input/Output Routines 

Name: QGETUCB (QGTUCB) 

Name: QOPEN • - 

Name: QGET 



Name: QPUT. . 
Name: QCLOSE. 
Name: QCNTHL. 



93 

94 
95 

96 

98 

99 

102 

103 

105 

106 

107 

110 

,112 

,113 

,114 

,115 

,116 

.117 

.118 

.119 

.120 

,121 

.123 

.124 

.125 

.126 

.128 

.129 

.130 

.131 

.132 

.133 

.134 
.134 

.136 
.137 
. 138 
.142 
.143 
.146 
.147 
.147 
.149 
.150 
.151 
.152 
.153 
.154 
.155 



COMPLETE TABLE OF CONTENTS 



Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 



CANEEPLY 
DISMOUNT 
EMPTY. . 
ERROR. . 



156 
157 
158 
159 



E7090,D7090,E7090P,D7090P T60 



FCVTHB 



161 



FREEFD 162 



163 

164 
165 
166 
167 
168 



FBEESPAC 
GDINFO . 
GETFD. . 
GETSPACE 
GOSEEID. 
lOPMOD . 

LINK, XCTL, LOAD . T69 

LINPG. . * -I7-, 

510DNT. . '.'.'' 175 

PGNTTEP !!!!!!!!! 176 

Printer Plot Routine I!! 177 

PL0T1 ....... .^^^ 

PI-0T2 . .*!! I .'!.*!.'.*! 178 

PLOTS 178 

PLOTU 179 



PL0T14. 



179 



STPLT1 180 

STPLT2 180 

SETLOG . 180 

0«IT i .'.'.'!!!!;.'■! 180 

Name: IREAD 182 



Name: 
Name: 
Name: 
Name: 
Name: 
Name: 
Name: 
Name: 
Name: 
Name: 
Name: 



REWIND 



183 



REWIND* 184 

SCAEDS 185 

SDUMP ','.'.'.'.['.'. '.^86 

SEECOM 189 

sETioERB ..!!!!!!!! '190 

SETPFX '.'.'.'.'.' 'l91 

SPRINT '.'.'.'.'.'.'' ^92 

SPONCH '..'.'.'.'.' '193 

SYSTEM ..'.'.'.'..' ' ^9H 



WRITE. 



195 



Macro Libraries 196 

System Macro Library - *SYSMAC !!]I!I !l97 



ACCEPT 



Name; 
Name: 
Name: 
Name: 
Name: 
Name: ENTER, 



198 



BAS,BASR 199 

CFAD,DFSB,DFMP '.'.'.'.'.'.'.' '2OO 

DFIX, EFIX '.'.'.'. '201 

DISMOUNT .'.'.'.'. [202 

203 



Name: EXIT ^ 204 

Name: FLOAT ] ! ! ! ! !205 

Name: GETSPACE !!!!!!! !206 

Macro Calls to IOH/360 !!!!!! !207 

Name: MOUNT I I ] ! * ! I ^216 

Name: SCAEDS , SPRINT, SPUNCH,SERCOM, READ, WHITf. ..'..'. '.2M 



10 



Name: SIT - 219 

Name: SWPE .220 

MTS Assembly Language Testing Macros 221 

Structure of a Macro Library ..... .226 



Phone Numbers - Data Set Directory 



,227 



Library File 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Nam6 
Name 
Name 
Name 
Name 

Co 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 
Name 



Descriptions .231 

*ASA 232 

*ASMBLR , . . . . 233 

*fiSMEDIT , 235 

*ASMEES. ..... ........*.. .236 

*BATCH 237 

*BCDEBCD ^ . . 238 

♦CATALOG .239 

♦ COINFLIP •• -240 

*CONVSNOBOL. 241 

♦ DISKDUMF. 243 

♦ DISMOUNT - .245 

♦ DOUBLE - 247 

♦ DRAW 249 

♦ EBCDBCD -.. .251 

♦ FILEDUMP 253 

♦ FILESCAN 254 

♦ FORTRAN 256 

♦ FORTEDIT • .257 

♦ GPAKDRAW .258 

♦ GPAKGRID. .259 

♦GPAKLIB ........ . * .260 

♦GRAPHLIB * - .261 

♦ GRAPHMAC 263 

♦HEXLIST ...... .264 

♦ IHC 265 

♦ LINPG 266 

♦ LISTVTOC - ..* .267 

♦MOUNT 268 

♦ NEWFORT , 270 

ipiler Options . -..«.. .271 

♦ OBJSCAN 274 

♦ OSMAC 276 

♦ PAL8SS 277 

*PIL 278 

♦ PLOT .279 

♦ ROSSPRINT 283 

*SDS 285 

♦ SN0B0L4 295 

♦ SQUASH 296 

♦ SSP , 297 

♦ STATUS 298 

♦ SYMBOLS .299 

♦ TABEDIT 300 

♦ OMIST 301 

♦ UPDATE 302 



COMPLETE TABLE OF CONTENTS 



11 



Name: *WATEfiR -...*..-.... .307 

Name: *HATFOR. ,.^. ....... . .308 

Name: *WATLIB .*...* ^309 

Name: *2250EDIT **.....-.. .310 

Name: *8ASS ..,..».. .313 

Name: *8SSPAL .............314 

The Dynamic Loader ...*... ..31 5 

Description of the loading Process «\i.... .316 

Introduction 4. ....31 5 

loader Input ........ .315 

Resident System Symbols *.... ,316 

loader Output .......*. ..4 *317 

Entry Point Determination ....*..., .317 

loader Processing Details ^.... .318 

loader Invocation Details i . .319 

A. Invocation by a $RUN command .....4. .319 

B. Invocation by a $LOAD command .4. 319 

C. Invocation by a call upon IINK 4... 31 9 

D. Invocation by a call upon LOAD. .......... 4 . . .320 

E. Invocation by a call upon XCTL .320 

Description of the Loader Input ». .*.... 4 .321 

1. Translator-generated Load Record^. . 4 . . . , . .321 

A. ESD Input Record , i321 

B. TXT Input Record (Text) 4 .321 

C. RLD Input Record (Relocation Dictionary) . . . . . .321 

D. END Input Record .322 

E. SYM Input Record .......4 .322 

2. Oser-generated Load Records. 4.. .322 

A. LDT Input Record (Load Terminate Record) ,322 

B. REP Input Record (Replace Record) ........... .322 

C. DEF Input Record (Define External Symbol) . 4 ... 4 4 .322 

D. ENT Input Record (Entry Point Record) 4 . . 4 4 323 

E. NCA Input Record (No Care Record) .....* .323 

3. Library Control Records .323 

A. LCS Input Record (Low Core Symbol Table) .323 

B. LIB Input Record (Library record) .323 

C. RIP Input Record (Reference If Present Record) 323 

Record Formats - Dynamic Loader. ................ .325 

Loader Input Deck Ordering and Restrictions * . . 4 . . .336 

Description of the Loader Output - 341 

Introduction -..4. ...... ..341 

The Program. 4341 

Printed Output 4 342 

Sample Loader Printed Output 342 

The Entry Point , .343 

The Map .343 

Error Messages . . . .344 

MTS Errors or Program Interrupts During Loading .346 

Loader Library Facility , . * *. .347 

The System (Public) Library 347 

Optional Libraries .348 

Pre-Defined Symbols and Low Core Symbol Dictionaries . i . .348 



12 



INTERNAL SPECIFICATIONS - ••351 

File and Device Management r ' -352 

Introduction 353 

Public Entry - ^^^ 

DSEI Prefix • -^^^ 

DSB • - 3^** 

DSRI Postfix. ^^5 

FDUB Structures. ||^ 

Structure of Device Tables. .359 

Device Support Routines (DSR) - Specifications 361 

Common Information -361 

1. INITIALIZATION .362 

2. DITCH .362 

3. GETFEOM - .362 

4. WRITEON .363 

5. ATTENTION .363 

6. WAITFOR 364 

7. RELEASE .364 

Processor Internal Specifications. 365 

Loader Internal Specifications 366 

Introduction .366 

Name ' ' 'Itl 

Function • • •366 

Calling Sequence - '^zL 

Parameter List ..... '^^^ 

Return Seq.uence • 368 

External Symbol Dictionary Format .369 

Error Recovery and Restart Procedures 370 

Return Codes • • '^^^ 

Loading Status Word Format 371 

General Organization of the Loader Psect 375 

More Details on the Loader Structure 376 

The Loader-MTS Interface 376 

File Routines * '^1^^ 

File Format - General Description .3/9 

Allocation of space and cataloging « .379 

Files written through system subroutines (SCARDS, SPONCH, 

etc) 379 

Physical format of the components - -380 

The TrasCk Index • 380 

The Line Directory 380 

The Line File .381 

How the components are tied together. . 381 

File size limitations. •• -382 

External File System Subroutines. 386 

Name: CHKSDM 387 

Name: CLOSE. * 388 

Name: CREATE . .....* .389 

Name: DESTRY - -391 

Name: GETDSK .392 

COMPLETE TABLE OF CONTENTS 13 



Name: OPEN 353 

Name: READ !!II '.39H 

Name: EEADL ...!!!!*! [395 

Name: READS ...!!!!!!!!I [396 

Name: RELDSK II!!!!II [397 

Name: SCETCH !I!!I!I!!I '398 

Name: WRITE. I!!I!!!!!] !399 

• ••-•--• aoo 



File Subroutines Internal Structure 



VOLUME II 5QQ 

LANGUAGE PROCESSOR DESCRIPTIONS 501 

P-level Assembler 503 

Assembler Listing !!!!!!!! ^503 

External Symbol Dictionary (ESD) I!II!I!!I !504 

Source and Object Program ....!]] isOS 

Relocation Dictionary I!!* iso? 

Cross Reference. !!! isos 

Diagnostics = ...!!] !509 

Diagnostic Messages . . . iilisil 

FORTRAN G 525 

Source Module Error/Warning Messages . ! I !525 

Fortran User's Guide !!.!! ,530 

Files and Data Set Reference Numbers ! ! ! ] ! '.530 

Tape Support Statements. ] ] [53O 

Sequential Files !!!!! isSO 

Record Format for Sequential Files ! ! ! ! ,53'i 

Default Record Length for Sequential Files ! !531 

Record Format for Direct Access Files [531 

The STOP Statement '.','. .533 

The PAUSE Statement !!!!!!! i 533 

Execution Error Messages !!!!!!! !533 

Program Interrupt Messages * [538 

Non-arithmetic Program Interrupts !538 

Arithmetic Program Interrupts *539 

TOH/360 - I/O with Conversion 542 

Specification Characters !553 

Usage - Normal Context i.. ..!!!! '553 

Literal Context. . ! ! ! ! '. '. isTS 

Format-Off Context ...!!'!!!! 1 579 

Default-Scan Context ..... ....!*! isso 

Format-Variable Context. ... !!!!J!!! !584 

Useful Entry Points to IOH/360 !■!!!! isss 

Block-Addressing Section .... isSB 

Standard-Format Input Saction !!!! '.588 

PIL - - Pitt Interpretive Language ., .591 

Desk Calculator Mode .!!!! !592 

Variables and Constants !1! !593 

Constants ] [593 

ia 



Variables - • -593 

algebraic Expressions .596 

Boolean Expressions 598 

Interchange 5^^ 

Stored Program Mode 602 

Parts and Steps .602 

Indirect Error Reporting ...... ..-*.... .603 

Running A Stored Program. • -^04 

Program Stops • ^^^ 

Transfer of Control ^06 

DO Statement • -^^^ 

TO Statement .606 

IF Statement 607 

Simple Console I/O * • -608 

Output 608 

Input • 610 

Program Changes ..-., ..........oi^ 

Deletion • • • -612 

Variable Deletion 612 

Part and Step Deletion. 612 

Eorm Deletion •• -613 

Storage Clean-up 613 

Iteration Statements 613 

Implied Loops. • 614 

Explicit Loops «...-. .614 

Restart 615 

For Control. 616 

Character Strings 617 

String Comparison .617 

String Functions ..• •••* .617 

String Operations * .618 

Extended Console I/O. 'foi 

A. Numeric Information - 621 

B. Alphabetic Information 622 

C. Other Characters * "622 

Form Statement • '^^^ 

Type In Form n. List 623 

TYPE FORM n 623 

TYPE ALL FORMS 624 

Form Deletion 624 

Oser Directed Input. - - -624 

Extended I/O List Features 625 

Literal Forms .626 

Program Management 626 

Pagination •626 

Storage Acquisition * *• .628 

PILmanship • • '^^S 

APPENDIX A: Summary of PIL Statements 631 

APPENDIX B: Precision of Arithmetic .-- .632 

SN0B0L4 • ^^^ 

1. Introduction -637 

2. Differences between SN0B0L3 and SN0B0L4 638 

COMPLETE TABLE OF CONTENTS 15 



5 



2.1 Changes in Syntax 638 

2.2 Changes in Names and Functions ,640 

3. Pattern Matching !!II '.6H1 

3.1 Pattern Construction '.6H1 

3.1.1 Alternation ,^ .641 

3. 1.2 Concatenation , .641 

3.1.3 Arbitrary Strings '* *642 

3.1.4 Balanced Strings , ]642 

3.1.5 Fixed-length Strings * leH2 

3.1.6 Fixed Positions in Strings 642 

3.1.7 Tabulation .....I 1 643 

3. 1.8 Remainder 643 

3.1.9 Alternative Characters .. [643 

3.1.10 Runs of Characters. ,. ^644 

3.1.11 Repetitions [ , !644 

3.1.12 Signalling Failure , [ *645 

3.2 The Order of Pattern Matching '646 

3.3 Deferred Pattern Definition . ^646 

3.4 Value Assignment , I648 

3.4.1 Post-matching Value Assignment I ! I l648 

3.4.2 Dynamic Value Assignment 649 

4. Arrays 652 

Seal Numbers .655 

6. Data Types [ [ l656 

6.1 Data Types in Operations ] ] ^656 

5.2 Concatenation with the Null String I656 

6.3 Data Type Determination I657 

7. Programmer-defined Data Types I658 

8. Compilation during Execution. .., [661 

8.1 Creating Object Code ! I ! ! !661 

8.2 Direct Gotos. -.!!661 

9. Keywords I!J [663 

9.1 Protected Keywords I!I [663 

9.1.1 Internal Values [663 

9.1.2 Predefined Values [663 

9.2 Unprotected Keywords , ^664 

9.2.1 Internal Switches [[ [664 

9.2.2 Internal Parameters [ [664 

10. Truth Predicates [ [666 

10.1 Negation , [666 

10.2 Affirmation [666 

11. Input and Output !!! !667 

11.1 I/O Association Functions [667 

11.2 Output , i .668 

11.3 Input , , .669 

11.4 Rewind .669 

11.5 Back Space ^669 

11.6 End of File '.'.'. '\669 

12. Names ...*670 

12.1 Passing Names 670 

12.2 The Name Operator [[ !671 

12.3 Returning by Name , , .672 

13. Additional Functions 674 



16 



13.1 Character Replacemsnt -., .67i* 

13.2 Lexicographical Comparison 674 

Acknowledgements ^.... .675 

Beferences. 676 

Appendix A: Operator Precedence . .677 

Appendix B: List of Functions with Section Heferences ....... .678 

Appendix C: Sample Programs ...... .679 

Appendix D: Trace Facility. .715 

DMIST 717 

Preface 718 

Chapter I: Introduction .719 

TEAC .719 

OMIST 719 

Guide to this Manual 720 

Chapter II: The UHIST Processor 721 

Mode of Operation 721 

Syntax 722 

Chapter III: OMIST Primitives 723 

Bead String and Print String 723 

Define, Call and Segment String - 724 

The Form Pointer , 725 

The Egua,l Function .726 

Other Language Features .726 

Chapter IV: OMIST Variations 727 

Input Functions. 727 

Arithmetic Functions « 727 

Boolean Functions .728 

External Storage Functions 728 

Other Differences .729 

Chapter V: DMIST Extensions .730 

Special Symbols. . 730 

Set Definition Function -.• .731 

Class Membership ..... .731 

Parameter Setting ..731 

Protection Parameters .732 

Parameter Switches .732 

Special Character Parameters 733 

Integer Parameters .733 

Name Parameters .733 

Implicit Calling and Call Procedure .733 

External Functions .735 

Status Eecording .735 

Chapter VI: Internal Structure 737 

Pushdown Stack i .737 

Scanning Algorithm .738 

Storage Management ....... .738 

Bibliography 742 

Appendix A. A Guide to Using UMIST in MIS 743 

Appendix B. Primitive Functions ..... . .745 

print string function. ... ....*... .745 

read string function 745 

signoff function ......... .745 

COMPLETE TABLE OF CONTENTS 17 



define string function .. .745 

define form function .746 

segment string function 746 

call function .746 

call procedure function .- 746 

print form function 747 

initial function 747 

call segment function 747 

call character 748 

call n characters 748 

call restore function 748 

set function 748 

delete definition function 749 

delete all function 749 

equal function 749 

decimal arithmetic functions 749 

add decimal 750 

subtract decimal ...........< 750 

multiply decimal 750 

divide decimal * 750 

test decimal 750 

special symbol functions 750 

parameter set function .751 

print parameter function 751 

load external functions function 751 

read character function 751 

read n characters function 752 

dump function 752 

null function . .752 

restart function 752 

reinitialize function .752 

set form pointer function .753 

call form pointer function 753 

call gap function 753 

call ordinal value 753 

erase segment gaps function ^ 754 

set protection classes function. . .754 

list selected names function 754 

test character function 754 

length function 755 

hexadecimal to character function 755 

character to hexadecimal function , .755 

hexadecimal arithmetic functions 755 

add hex. ....^ 755 

subtract hex 756 

test hex 756 

if function 756 

not function 756 

and, or, and xor functions 756 

define special symbol function 757 

date function 757 

time of day function 757 

translate function 757 



18 



translate print function ...... .758 

hash history function ., 758 

Appendix C. UMIST Line Editor .759 

WATFOE 766 

I MATFOR Control Cards . .766 

II Error Diagnostics and Running Modes ..........*.. .767 

III Subroutine References .768 

IV — WATFOE Subroutrine Library Structure .768 

V Language Extensions .769 

VI Language Restrictions .772 

WATFOR COMPILER ERROR MESSAGES .773 

8ASS — PDP-8 Assembler .782 

Introduction , .782 

Assembly Processing . . .782 

BASS in MTS .783 

Names and Expressions ........ .784 

Instructions and Procedure Calls .785 

Debugging Aids .787 

Object Decks .788 

Appendix 1: 8ASS Standard Opcodes ........4 . .790 



COMPLETE TABLE OF CONTENTS 19 



MTS 



(MICHIGAN TEBMINAL SYSTEH) 



"Writeups are like watches; the worst is 
better than none, and the best cannot be 
expected to go quite true." 

[with apologies to 
Samuel Johnson] 
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GEMBBAL IMTBODOCTION 



MTS is a time-sharing system designed to be run prinarily from remote 

terminals. It also has a batch mode to allow batch processing of jobS4 
The system allows the user at a remote terminal to create files consisting 

of general text or program material, to call in processors to translate 

these files, to run translated programs, to inspect and debug programs, to 

obtain hard copy of files on high speed printers and punches, to 
communicate between consoles, etc. 

The system is described in a series of sections (of which this is the 
first) , labelled as follows: The upper left hand corner of each page of a 
document contains 

(1) the document number 

(2) the date of issue 

The document number is constructed as follows: The general form is 

MTS - <section number> - <level number> 

for example: BTS-210-0 

Section 230 covers the commands (in alphabetical order) . The section 

number for commands is extended by adding a slash followed by the first 3 

letters of the command. If this is not unique, a colon and distinguishing 
letter (s) are added, and so on, e.g., MTS-230/CfiE-O 

Section 253 covers subroutines available to user programs (in alphabeti- 
cal order) . The section number is extended there by adding a slash 
followed by a five-digit number identifying the subroutine e.g., writeup on 
SPRINT has the number MTS- 2 5 3/6 25 1i>. 



Section 255 covers macro library descriptions and is handled 
section 253. 



like 



Section 280 covers library file descriptions and is handled like section 



253. 



General Introduction 
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OSAGE DESCRIPTION 



This major section of the manual is concerned with presenting a general 
overview of the system and usage guides for different types of users at 
different kinds of terminals. 
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CONCEP TS AND FAC ILI TIES 

A present day computing system is a complex blend of hardware (the 
actual physical components of a computer) and software (programs which 
control the functioning of the hardware) • The purpose of the software is 
to provide to the user the full capabilities of the hardware without 
requiring a detailed knowledge of the hardware, and in addition to provide 
functions and facilities not directly available in the hardware. From the 
system viewpoint, on the other hand, the software provides for reasonably 
efficient usage of the hardware by removing the user from the basic levels 
of hardware function (such as I/O and interrupt handling) . In effect, the 
user sees a computer which is the sum of the hardware and software 
facilities, so that he is, in fact, not running on the actual hardware 
computer which supports the software. 

This manual is a description of the HIS (Michigan Terminal System) ; MTS 
is a software system designed to run on an IBM System 360 hardware 
configuration. This manual introduces the basic concepts and facilities of 
this software system; details and descriptions of the hardware must be 
obtained from the appropriate IBM manuals. 

HTS is designed to handle both interactive operations (terminal 
operations) and batch operations. In interactive operations, the user is 
situated at a terminal device (such as a teletype) and communicates with 
the system in real time. Requests for system action are received, 
performed, and the results immediately returned to the user, who may then 
react and en^ter new requests. MTS is able to support several terminals at 
a given time by giving each user a certain amount Of time in sequence. In 
batch operations, the user submits a deck to the Computing Center and waits 
until this deck has been run to obtain output. The center collects these 
decks into batches, and then runs a whole batch at once. Thus, turn- 
around-time is longer for batch operations; but due to the need of 
terminals and communication lines in interactive mode, batch operations are 
normally significantly cheaper for the same processing. 

MTS contains a number of facilities to make the computer more readily 
accessible. The system contains an assembler (F level IBM assembler) , two 
Fortran compilers (Fortran IV G level and WATFOR) , an interactive 
calculator language (PIL) , a symbol manipulation language (SN0B0L4) , and a 
symbol-macro processor (OMIST) . Additional translators will be available 
in the future. The system user is able to define, store, and use 
collections of information (files-see later) either from terminals or in 
batch. These collections are generally whatever the user wishes to file 
away for later use. Once defined, such collections may be modified, 
deleted, or reused at later times. The user from a terminal has full 
facilities for running, interrupting, modifying, and restarting (i.e., 
debugging) programs which he has written and translated. The system 
includes both a macro library for assembler users and a subroutine library 
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for all users, thus easing many of the programming burdens. In addition to 
these facilities, the user is able to communicate between terminals, to 
copy files and make hard copy of them, and, in general, to obtain all those 
services necessary to make the computer accessible as a tool. 



This section will serve as a brief introduction to MTS. Basic 
definitions will be given, and simple examples will explain some of the 
functions of MTS. An understanding of the remainder of this section should 
allow one to use the remainder of this manual with relative ease. 

a f ile is a logically ordered set of lines, where each line is some unit 
of information. For example, a line may be a source card of 80 characters, 
ar. object card, an output print line, or any other unit of information 
desired by the def inor of the file. Files may be created, modified, or 
destroyed as necessary; they may be permanent or temporary for a single 
part of a job; they act as storage areas for collections of information 
which will be needed at some later date. There are three types of files in 
the system: user files , library files , and scratch files , library files 
are files which are available to all users of the system; the translators 
are examples of such files. User files are private files defined by 
individual users and cataloged under particular ID numbers; such files are 
available only to those users who have the proper ID number. Scratch files 
are files created for use in a single job and destroyed automatically at 
the end of that job. All files in tne system bear distinct names for 
reference purposes; in fact, a file must be named before it can be 
cataloged. A library file has a name whish begins with an asterisk (*) and 
is followed by 1 to 15 characters; this name must be used for all 
references to the file. User files have names consisting of 1 to 12 
characters; it is strongly suggested that only alphanumeric characters be 
used in naming user files, although other characters may work. To prevent 
different users from defining files of the same name, the system prefixes a 
four character ID to the file name given by the user; this ID is assigned 
to each user by the computing center and is unique to each user. A scratch 
file has a name which begins with a minus sign (-) and is followed by 1 to 
8 characters. 

Within a file, each line has a unique line numbe r of the form 

sxxxxx.xxx, where s is a sign (plus or minus) , x is a decimal digit, and 
the . is a period or decimal point. At the time a file is defined 
(created) , one may supply with each line its line number; alternatively, 
one may simply supply to the system a beginning line number and an 
increment, and let the system supply a line number for each line. Either 
way, each line within a file has a unique line number. After a file has 
been created, various parts of the file may be referenced or modified by 
referring to the appropriate line numbers. 

There is a set of special file s in the system which may be used at any 
time and which are always defined. Each of these special files has a file 
name of the form *NAME*, where NAME specifies the particular special file. 
Thus, for example, *DUMMY* is a system special file which is always empty. 
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If one tries to read this file, an EOF (end of file) indication is 
received. If one attempts to place information in this file, the 
information is lost (an infinite garbage pail) . This special file is 
useful during debugging or as an easy way to ignore some .particular output. 
Other special files will be described later in this section* 

Another type of name recognized by the system is a de v ice name . This is 
the name of a particular physical device on the computer, and the built-in 
device names are always 4 characters in length. These names are used when 
one wishes to refer directly to some particular physical device (such as a 
card reader, a printer, a disk, etc.) rather than to a logical file. 
Under normal conditions, reference to device names would occur only daring 
terminal operations. One difficulty does arise due to the presence of 
these device names; a user may unwittingly use such a name as a file name, 
causing problems in referencing the file. To prevent such problems, a 
pound sign (#) may be prefixed to a file name to indicate that it is a file 
name even if there is a device name of the same symbol. 

There are a number of attributes or modifiers which may be attached to a 
file name wherever a file name occurs. An attribute is attached to a file 
name by prefixing the attribute with the character a and placing the whole 
construction after the file name. Por example, FILEai is the file name 
FILE with the indexed (I) attribute. The various attributes which may be 
designated with a file name are specified elsewhere in this manual and will 
not be further discussed here. 

Now let us consider how to run in the MTS system. The basic philosophy 
of MTS is that at any given time the system is either in command mode or 
some particular program is being run. When in command mode, there are two 
kinds of input lines to the system: command lines and data lines . A 
command line contains a $ in its first character position (column 1 if on a 
card) followed immediately by a command name, followed by whatever 
parameters, if any, are needed by tne particular command. Any line which 
is not a command line is, by default, a data line. Command lines are used 
to provide commands to the system; that is, to provide information to the 
system, to request information from the system, or to specify some 
particular action to be taken by the system. Data lines are what the name 
implies: a data line is a line of data to put in a file. Whenever MTS 
finds a command line, the command is carried out. Whenever HTS finds a 
data line, the line is added to some current file for later processing; the 
particular file used here is whichever file the user is currently defining 
(the current active file) . 

On the other hand, when some particular program is being run, then all 
inDut lines are data for the program. The data required depends upon the 
program being run. If a translator is being run, then the data is a source 
program. If a loader is being run, then the data is an object module. If 
a user program is being run, then the data is whatever that program 
requires as input. Thus, a data line may be any one of the above 
possibilities. 

To initiate a run (job) in MTS, the first line must be the command 

$SIGNON id 
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where id is a four character ID assigned to the user. If this ID is 
acceptable, the user is signed on in the system and is ready to run. The 
ID given in this command is the ID used to prefix all user file names 
during the run. As part of the signon procedure, the system prints out the 
last time this ID was used to signon in the system. Furthermore, two 
special files are opened for this job; these are *SOURCE* and *SINK*. 
♦SOURCE* is defined as the source of incoming lines; it is the terminal for 
terminal operations or the input device for batch. *SINK* is defined as 
the destination of outgoing lines; it is the terminal for terminal 
operations or the output device for batch. In addition, the special file 
♦PUNCH* is defined as the punch device if this is a batch run. These 
special file names make it possible to refer to the pertinent devices 
without knowing their actual device names. Since the actual devices used 
for source, sink, and punch in batch runs varies from batch to batch, the 
use of these names is mandatory for references to the batch input and batch 
output devices. 



To introduce some basic concepts and procedures in using MTS, let us now 
consider a simple use of the system. The examples in the remainder of this 
section will be written as batch input decks; the primary distinction 
between batch and terminal operations is that no interaction between the 
user and the system is possible in batch. 

The following deck causes the compilation and execution of a Fortran 
program which computes square roots. 

JSIGNON IDNO 

$RUN *NEWFGST; 0=-LOaD 

NAMELIST /NL/SQ,R0OT 
10 READ (5,NL) 

ROOT = SQRT(SQ) 

PRINT (6,N) 

GO TO 10 

END 
$EHDFILE 

$RDN -LOAD *SINK*; 5=*SOaRCE* 6=*SINK* 
SNL SQ=10. SEND 
&NL SQ=20. SEND 
SENDFILE 
$SIGNOFF 

The signon statement has already been discussed. The next statement is the 
run command, and it requests that MIS run the program whose name is 
♦NEWFORT. This is the Fortran compiler, so this statement effectively 
requests a compilation. (The various HIS commands are described in detail 
later in this manual. This section will not go into the full details of 
each command.) In order to understand the remainder of this command, it is 
necessary to define the concept of logical I/O unit . A logical I/O unit is 
a name which may be used in a program to request I/O (input/output) 
activity. The name is not connected to any particular device or file by 
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the program, so the program is independent of the actual device or file 
which eventually holds the information. The logical I/O units available in 
HTS are SCAHDS, SPRINT, SERCOM, SPUNCH, and through 9. If we look at the 
Fortran writeup in this manual, we see that Fortran expects a source deck 
on SCaRDS and places a listing on SPRINT, error comments on SERCOM, and an 
object module on unit 0. Therefore, when a request is made to run Fortran, 
it is necessary to specify which devices or files are actually to be used 
for these purposes. The description of the run command shows that SCAHDS 
is taken as the current source, if not specified; therefore we need not 
specify it since our program is in the source stream. Further, SPRINT and 
SERCOM are, by default, the current sink; again we need not specify these 
since we desire this output to return via the system output devices. Onit 
0, however, has no default assignment; thus, it is necessary to assign some 
particular file to to get an object deck for running. Since we want this 
file only long enough to collect an object deck for execution, we really 
need a temporary file which can be deleted at the end of the job. This may 
be done by specifying a file name preceded by a minus sign- MTS declares 
such a file as temporary and automatically destroys the file at the end of 
the job. Thus, on our run command we have 0=-LOAD. This tells MTS that a 
temporary file named -LOAD should be created, and all references to in 
Fortran should refer to -LOAD. Therefore, we run Fortran with the source 
deck on *SOaRCE*, the printed output on ♦SINK*, and our object module on 
-LOAD. In this particular case, we will have an unsuccessful compilation, 
since our PRINT statement has an illegal namelist name in it. Therefore, 
we will not have an execution* To correct this, we would change our 
erroneous statement to 

PRINT (6,NL) 
and resubmit the deck. On this run, compilation will be successful. The 
SENDFILE command simply signals to Fortran that it should quit reading the 
source file and finish the compilation. The next command requests running 
the object module produced by Fortran by requesting that -LOAD be run. The 
*SINK* requests that a loading map be placed on the output; a loading map 
gives a list of the various programs loaded into physical memory and their 
locations. This is handy for later debugging of the program. To provide 
input and output files for the program, 5 is defined as *SOOSCE* and 6 as 
*SI,NK*, where 5 and 6 are the data set reference numbers used in the READ 
and PRINT statements. Note that these data set reference numbers are 
simply the logical I/O units defined earlier. Thus, our program expects to 
read from logical I/O unit 5, and when we run the program we must tell the 
system what file to use when 5 is referenced. In this case we chose 
♦SOURCE* since our data will be there. The $ENDFILE after the data tells 
the program that this is the end of the data. The final command $SIGNOFF 
must be the physically last line or any run. 

Now let us consider a slightly different version of the previous deck: 

$SISNON IDNO 
SCSSATE SQRT 
SNDMBER 

NAMELIST /NL/SQ, ROOT 
10 READ (5,NL) 

ROOT = SQRT(SQ) 

PRINT (5,N) 
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GO TO 10 
END 
StJNNaMBEB 
$LIST SQRT 

$RDN *FOETaAN; 0=-LOAD SCAEDS=SQBT 
$RDN -LOAD *SINK*; 5=*S0UBCE* 6=*SINK* 

SNL SQ=10. &END 

&NL SQ=20. &END 
$ENDFILE 
$SIGNOFF 

Here, rather than compiling our source deck from *SOURCE*, we first place 
it in a permanent user file. The SCBEATE command requests that a user file 
with the name SQRT be created; it also maJces this file (SQBT) the current 
active file. A special file named *AFD* is defined as the current active 
file and may be used for references; hence, SQRT and *AFD* each refer to 
the same file after this $CBEATE command has been processed. The SNUHBEfi 
command indicates that the system should supply a line number for each data 
line which it encounters; it is possible to specify a beginning line number 
and an increment in this command if one wishes, but here we have taken the 
default case of starting at line number 1 with an increment of 1. Now, as 
the source program is read, each source program statement is a data line to 
the system. Since data lines are always stored in the current active file, 
the source program statements are successively numbered and placed in the 
file SQRT. (If the SNUtlBEB command had not been given, MTS would have 
searched each line for a line number and used it if there; otherwise, a 
line number of zero would have been assumed. Disastrous results would 
obviously have followed.) Note that no iJENDFILE command is needed here 
since the source deck is not being read by Fortran. The $0»NaHBEE command 
turns off the automatic line numbering by MTS. The $LIST command requests 
that a listing of the file SQRT be placed on *SINK* (by default) . This 
command would generate the following output: 

1 NAMELIST /NL/ SQ, BOOT 

2 10 READ (5,NL) 

3 ROOT = SQRT (SQ) 

4 PRINT (6,N) 

5 GO TO 10 

6 END 

The numbers on the left of each line are the line numbers from the file 
SQRT. The remainder of this deck is as before, except that now on the JfiON 
command for Fortran we must specify SCABDS=SQBT so Fortran will take its 
source deck from our new file. As before, this deck will not compile due 
to the erroneous PRINT statement. However, since the source deck is in a 
permanent user file, we need not read in the whole deck after removing our 
program error. We can simply correct our file and run. The following deck 
does this: 

SSIGNON IDNO 
$GET SQBT 
4 PRINT (6,NL) 
$BON *FOETfiAN; 
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where the dots indicate same as the previous deck. The $GET comaand makes 
SQBT the current active file. Note that we cannot use SCHEATE again, since 
the system would balk at creating two files of the same name. Since 
$NUMBER was not given, MTS assumes the data line has its own line number. 
Thus, the 4 is stripped from the PKINT (6,NL) line, used as a line number, 
and our data line replaces line number 4 in SQBT; this corrects our source 
program in SQBT. If we had wanted to add statements to our file, we could 
have picked line numbers between those in the file; in this case the new 
lines would be inserted in the appropriate places. Thus, the following 
deck would place a comment card after the NAiSELIST statement in SQRT: 

$GET SQRT 

1.5C SQBT PROGRAM 

There are a number of commands which have not been discussed here, but 
the reader should by now have gained some basic understanding of the 
concepts and procedures of MTS. It is possible to destroy or empty files, 
to change the source or sink assignments, etc. There are also commands 
which allow one to interrupt a running program, dump out pertinent 
variables from the program, modify various of the locations in the program, 
and then restart the program. These capabilities are primarily of use to 
those running from terminals; the debugging facility providing by this type 
of interaction should be obvious. 

This has been a brief introduction to the concepts of MTS. However, if 
the definitions and procedures discussed here have been understood, one 
should have little difficulty in obtaining more detailed information from 
the remainder of this manual. 
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CALLI NG CONVENTIONS 



INTRODUCTION 

A calling convention is a very rigid specification of the seguence of 
instructions to be used by a program to transfer control to another program 
(usually referred to as a subroutine) . It is very desirable although not 
always practical to set up only one set of conventions to be used by all 
programs no matter what language they are written in so that FOKTfiAN 
programs may call MAD programs and assembly language programs and so forth. 
In the MTS system the OS type I calling conventions have been adapted as 
the standard. A complete specification of these standards can be found in 
the IBM System/360 Operating System Publication, Supervisor and Data 
Management Services, Form C28-664 6. This writeup shall try to bring out 
pertinent details of these calling conventions. 

Throughout this discussion we will refer to the terms calling program, 
called program, save area, and ca lling sequen ce. The calling program is 
the program which is in control and wants to now call another program 
(subroutines) . The called program is the program (subroutine) which the 
calling program wants to call. The save area is an area belonging to the 
calling program which the called program uses to save and later restore 
general purpose registers. The save area has a very rigid format and is 
discussed in more detail later on. A call ing sequence is the actual 
seguence of machine instructions which perform the tasks as specified by 
the calling conventions. 

The facilities that must be provided by the calling conventions are: 

1. Establish addressability and transfer to the entry point. 

2. Pass parameters on to the called program. 

3. Pass results back to the calling program. 

U. Save and restore general purpose and floating point registers. 

5. Re-establish addressability and return to the calling program. 

6. Pass a return code (error indication) back to the calling program so 
it knows how things went. 

The remainder of this writeup will describe the OS type I calling 
conventions to show how they are used and how the facilities listed above 
are provided for. 
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BEGISTER AND STORAGE VARIANTS OP TYPE I CALLS 

The OS Type I calling conventions actually consist of two very similar 
calling conventions, referred to as OS (I) S Type calling conventions and 
OS (I) R Type calling conventions. The two differ only in the way 
parameters and results are passed between the calling and called programs. 
The R refers to register and the S to storage . 

The OS (I) R type calling conventions utilize the general purpose 
registers and 1 for passing parameters and results. This allows only two 
parameters or results and cannot be generated in higher level languages as 
FORTRAN. Its advantages are that calling seguences are shorter and take 
less time to set up. These are very popular in lower-level system 
subroutines such as GETSPACE or GEIFD. 

The OS (I) S Type calling conventions require a pointer to a vector of 
address constants called a parameter list (in register 1) . Since the 
parameter list can be of any required length, several parameters can be 
passed using OS (I) S Type calling convention. These conventions are used 
by system subroutines such as SCARDS or LINK and are generated by all 
function or subprogram references in FORTRAN. Results can be passed back 
by giving variables in the parameter list new values or via register 0. 

PARAMETER LISTS 

As stated above a parameter list is a vector of address constants. The 
parameter list must be on a fuil-word boundary and the entries are each 
four bytes long. The address of the first parameter is the first word of 
the list, the address of the second parameter the second word of the list, 
and so on. For example the parameter list for the FORTRAN statement 

CALL QQSV(X,Y,Z) 

might be written in assembly code as: 

PAR 



DC 


A(X) 


address of X 


DC 


A(Y) 


address of Y 


DC 


A(Z) 


address of Z 



Now this parameter list works well enougn when the parameter list for the 
subroutine is of fixed length, but tnere is not enough information yet to 
allow a subroutine to determine the length of the parameter list and hence 
accept variable length parameter lists. For this reason there are two 
types of parameter lists, fixed length parameter lists as described above, 
and an extended form of parameter list called a variable-length parameter 
list which is described next. 

Since a standard 360 computer uses 24 byte storage addresses the 
left-most byte of an address constant is usually zero. In a variable 
length parameter list bit zero of the left-most byte of the last parameter 
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address constant is set to 1 to sHow that it is the last item in the list. 
The example above then would be written as: 

PAR DC A (X) address of X 

DC A(Y) address of Y 

DC XLI'80' turn on bit zero. 

DC AL3(Z) address of Z 

^L™Lr^!^^*^^ ^ variable-length parameter list. As a matter of fact 
FORTEAN does generate variable-length parameter lists. Note though that 
programs expecting a fixed length parameter list will work with a 
variable-length parameter list, provided it is a least as long as the 
fxxed- length Ixst tjiey are expecting. 



REGISTER ASSIGNMENTS 

Of the sixteen general purpose registers, five are assigned for use in 
the calling conventions. The use of the general registers differs slightly 
depending upon whether an R or S type call is being made. 
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The following table specifies exactly what each register is used for during 
a call: 



Register Number 



Contents 







Parameter to be passed in R type sequences. 

Result to be passed back in R and S type sequences. 



Parameter to be passed in R type sequences. 
Address of a parameter list in S type sequences. 



2-12 



Not used as 
saved and rest 
area is usuall 



a part of the calling sequence. Must be 
ored by the called program. The save 
y used for this. 



13 



The address 
program to be 



of the save area provided by the calling 
used by the called program. 



14 



Address of the 
which control 
the called pro 



location in the calling program to 
should be returned after execution of 
gram. 



15 



Address of the 
the time of th 



entry point in the called program at 
e call. 



A return code at the time of the return that indicates 
to the calling program whether or not an exceptional 
condition occurred during processing of the called 
program. The return code should be zero for a normal 
return or a multiple of four for various exceptional 
conditions. 



General Purpose Register Linkage Conventions 



Notice that it is the called program's responsibility to save and 
restore registers 2-12 in the save area provided by the calling program. 
■T-here are two reasons for this. First of all only the called program knows 
how many of the registers from 2-12 it is going to use. Since a register 
need be saved and restored only if it is actually going to be changed, the 
called program may be able to save some time by saving and restoring only 
those registers which it will use. Secondly, the called program requires 
addressability over the area in which it will save registers upon entry, 
since any attempt to acquire the address of a save area would destroy some 
of the registers which are to be saved. Furthermore, the save area should 
not he a part of the called program since that would prevent it from being 
re-entrant (shareable) . This means the calling program should provide the 
save area in which registers are saved and restored. And so we have the 
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called program saving and restoring registers 2-12 in a save area provided 
by the calling program. 

The calling conventions are quite different with floating point reg- 
isters. Since a large percentage of programs do not leave items in 
floating point registers across sucroutine calls it seems rather wasteful 
to always save and restore the floating point registers. So the convention 
has been established that the c allin g program must save and restore those 
floating point registers which contain items which are wanted. Also, 
programs which return a single floating point result quite frequently do so 
via floating point register 0. 



RETURNING RESULTS 



There are in the OS Type I calling conventions four ways in which a 
subroutine can return a result. These are: 

1. Value of result in general purpose register 0. 

2. Value of result in general purpose register 1. 

3. Value of result in floating point registers. (usually 0) 

4. Value of a parameter from the parameter list changed. 

The particular method used depends upon whether the E or S type convention 
is used and whether the called program can be used as a function in 
arithmetic statements. 

The first three methods are used by B type calling conventions for all 

returned results. The contents of eaca of the registers depends upon the 

particular called program and are described in the subroutine writeup for 
each subroutine using the R type calling conventions. 



The firs 
conventions 
by function 
statements, 
depends upon 
respectively 
manner are 
The fourth m 
subprogram c 



t, third, and fourth methods 
for all returned results. The fi 
subprograms whose calls can be e 
The choice of general register 
whether the result returned is i 
An example of subroutines wh 
the FORTRAN IV Library Subprogra 
ethod can be used by a subprogra 
ailed by the statement 



are used by S type calling 
rst and third methods are used 
mbedded in FORTRAN and MAD 
or floating point register 
nteger or floating point mode, 
ich return results in this 
as, such as EXP, ALOG, or SIN* 
m. An example would be a 



CALL MATADD(A,B,C,ia,N) 

which might add the HxN matrices A and B together and store the result in 
C. 
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SAVE AREA FORMAT 



The save area is an area belonging to tke callin g program which the 
called program uses to, save and later restore general purpose registers. 
The address of the save area is passed to the called program by the calling 
program via general purpose register 13. The save area has a very rigid 
format and is described in the table: 



t 1 < ■— 1 

1 Word 1 Displacement | Contents I 


1 1 1 1 Used by FOBTfiAN, PL/I, and other beast ies for | 
1 1 1 many devious purposes. Don't touch! | 


1 2 1 H 1 Address of the save area used by the calling j 
1 1 1 program. Forms a backward chain of save areas | 
1 1 1 stored by calling program. | 


1 3 1 8 1 Address of the save area provided by the called i 

I 1 1 program tor programs it calls. Forms a forward | 

II 1 chain of save areas. | 


I 4 1 12 1 Return address. Contents of register 14 at time I 

II 1 of call, 1 


I 5 1 16 1 Entry point address. Contents of register 15 i 

II 1 at time of call. | 


1 6 1 20 1 Register contents. | 


1 7 1 24 1 Register 1 contents. | 


1 8 1 28 1 Register 2 contents. | 


1 9 1 32 1 Register 3 contents. | 


1 10 1 36 1 Register 4 contents. | 


1111 40 1 Register 5 contents. | 


1 12 1 44 1 Register 6 contents. | 


1 13 1 48 1 Register 7 contents. | 


1 14 1 52 1 Register 8 contents. | 


1 15 1 56 1 Register 9 contents. | 


1 16 1 60 1 Register 10 contents. J 


1 17 1 64 \ Register 11 contents. I 
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I 18 I 68 1 Register 12 contents. j 

I 1 L 1 

SAVE ABEA FOBMAT 

There are two things to be noted about the save area format, namely who 
sets what parts of the save area and how these areas might be set up. The 
callin g program is responsible for setting up the second word of the save 
area. This is to contain the address of the save area which was provided 
when the calling program was itself called. Although this is technically 
set up by the calling program as a part of the call, most programs set up- 
the save area they will provide to subroutines they call once and leave its 
address in general register 13. The work then does not need to be repeated 
for each call. The called program is responsible for setting up the third 
through eighteenth words of the save area. The called program usually 
saves the general registers which it will use as a part of its initializa- 
tion procedure and restores the registers as a part of the return 
procedure. Notice that the save area format is amenable to use of the 
store multiple and load multiple instructions for saving and restoring 
blocks of registers. All of this will be made clearer in the examples at 
the end. 

Some system subroutines (notably GEISPACE, FREESPAC, and a few others) 
do not require that a save area be provided for them. For these 
subroutines general register 13 need not be set up before a call and its 
contents are preserved by the called subroutine. The subroutines which 
need no save area are clearly marked as such in the MTS subroutine 
writeups. Notice that it is all right to provide a save area to one of 
these subroutine; it will simply be ignored. 

CALLING PROGRAM RESPONSIBILITIES AND CONSIDERATIONS 

The calling program is responsible for the following: 

1- Loading register 13 with the address of the save area and setting up 
the second word of the save area. 

2. Loading register 14 with the return address. 

3. Loading register 15 with the entry point address. 

4. Loading registers and 1 with the parameters in an R type call or 
loading register 1 with the address of the parameter list in an S 
type call. 

5. Saving floating point registers, if necessary. 

6. Transferring to the entry point of the subroutine. 

7. Restoring floating point registers, if necessary. 

8. Testing the return code in register 15, if desired. 

After the return from a subroutine, the status of the program will be as 
follows; 

1. In general, the contents of the floating point registers will be 
unpredictable unless saved and restored by the calling program. 

2. The contents of general registers 2 through 14 will be restored to 
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their contents at the time the called program was entered. 

3. The program mask will be unchanged. 

4. The contents of general registers 0, 1, and 15 may be changed. 

5. The condition code may be changed. 

Note that general registers and 1 and floating point register may 
contain results in the case of R type subroutine calls or a function 
subprogram. General register 15 will normally contain a return code, 
indicating whether or not an exceptional condition occurred during process- 
ing of the called program. 



CALLED PROGRAM RESPONSIBILITIES AND CONSIDERATIONS 

The called program is responsible for the following: 

1. Saving the contents of general registers 2 through 12 and 14 in the 
save area provided by the calling program. These registers need be 
saved only if the called program modifies these registers* 

2. Setting up the third word of the save area with the address of the 
save area which will be provided to subroutines it will call. 

3. Restoring the contents oi general registers 2 through 14 before 
returning to the calling program. 

4. Restoring the program mask if changed. 

5. Loading general registers and 1 and floating point register with 
the result in the case of R type subroutine calls or a function 
subprogram. 

6. Loading general register 15 with the return code. 

7. Transferring to the return location. 

EXAMPLE CALLING SEQUENCES 

This section will describe and give the assembly language statements for 
the typical machine instructions necessary to implement OS Type I calling 
conventions. 

A typical entry point might consist of the following statements: 

USING SUBRA,12 12 will be a base register 
SUBRA STM 14,12,12(13) save registers 

set up 12 as the base register 

this is save area provided for others 

set up forward pointer 

set up backward pointer 

set up for any calls we issue 

get parameter pointer into non-volatile 

reg. 



STM 


14,12,12(13) 


LR 


12,15 


LA 


11, SAVE 


ST 


11,8(0,13) 


ST 


13,4(0,11) 


LR 


13,11 


LR 


11,1 
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SAVE 



DS 



18F 



save area we provide for others 



Inside a subroutine that began with the entry sequence given above, the 
value of the second parameter in the parameter list could be put into 
general purpose register 3 with the following sequence: 



L 
L 

• 



3,4(0,11) pick up second adcon from parameter list 
0,0(0,3) pick up value of parameter 



Inside a subroutine that began with the entry sequence given above, 
another subroutine, SOBRB, could be called using the following sequence. 
Remember that register 13 already points to the correct save area: 



LA 


1,PAHLIST 


L 


15, = V(SUBEB) 


BALR 


14,15 


B 


* + 4 (15) 


B 


AOK 


B 


BAD1 


B 


BAD2 



AOK 



PARLIST 



DC 



A(PAR1) 



set up parameter list address 

set up entry point address 

set up return address and branch to the 

subroutine 

test return code via a transfer table 

RC=0 

fiC=4 

BC=8 



normal return to here 



first parameter address 



Finally, a subroutine that began with the entry sequence given above 
could return to the program that called it with the following sequence: 

floating point result to FPR 0. 

use back pointer to get right save area. 

restore registers. 

indicate a zero return code (no errors) 

return to what called us 



LE 


0, RESULT 


L 


13,4(0,13) 


LM 


14,12,12(13) 


SR 


15,15 


BR 


14 


• 
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It should be pointed out that although the above sequence are typical of 
the instructions used to implement the calling conventions, many variations 
are possible. 

MACROS FOR CALLING SEQUENCES 

There are two sets of macro definitions in the MTS Macro Library which 
can be used to help generate calling sequences. These are the OS macros 
SAVE, CALL, and RETURN; and the macros ENTER and EXIT. The more useful of 
these macros are ENTER, CALL, and EXIT. Besides these there is a set of 
macros which generate the entire calling sequences for many of the system 
subroutines and IOH/360. More details may be found in section MTS-255. 
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BATCH USEE'S GUIDE 



BATCH JOBS 



MTS batch jobs are those which are turned in at THE WINDOW for an MTS 

receipt card and are run in the order that they are turned in. The output 

may then be picked up at THE WINDOW as soon as the job has been run. A 
batch job must not require any interaction. 



ADVANTAGES AND DISADVANTAGES OF BATCH 

Although many users will need to have interactive capability, many users 
will find that batch is satisfactory and perhaps even advantageous to them. 
There will probably be few if any interactive users who do not make at 
least occasional use of batch. 

Batch has several advantages, even for those who have access to remote 
terminals. There is at present no way to use a high speed line printer or 
card reader or card punch directly from a terminal. But when running in 
batch mode one uses these devices at the Computing Center. Therefore, a 
user who does some of his work on a terminal may wish to create files 
containing the information he wishes to be printed and then either turn in 
a batch job to list these files or run *BATCH from his terminal to create a 
batch job to do the listing (see tne writeup on *BATCH in section 280) . 

Batch may often be more economical than an interactive use of MTS. 
Since the charge for a job is based, in part, upon elapsed real-time, the 
terminal user will find that he is being charged something for just sitting 
and thinking. When running in batch, not only does the card reader not 
have to think about the next line to input but the input-output rates are 
much higher in batch. A disadvantage may arise in batch when the user 
wishes to compile and execute in the same job. Since there is presently no 
way for a run command to be made conditional, every run command will be 
executed even though the compilation which was to produce the object file 
was not successful. Usually a program interrupt occurs early in the 
execution of this file. This effect may or may not be desirable but the 
user should be aware of it. 
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DIFFERENCES BETWEEN BATCH AND TERMINAL OSE 

There are two commands which are not legal in batch (SSOOfiCE and jiSINK) 
and three commands which are slightly different ($EMPTY, SDESTKOY, and 
SPON) . SEMPTY and SDESTROY differ only in that no confirmation of the 
command is needed. $RUN differs in that *SOUBCE* is set to the card reader 
containing the input stream, that *SINK* is the printer associated with 
this batch riin and *PUNCH* is the punch associated with this batch run. 
*PONCH* does not exist for terminal users. In batch, if the user does not 
specify global limits for time, pages, and cards on his SSI6N0N card, 
default values will be supplied automatically and his job will be held to 
those limits. See the section Limits Specification^ section MTS-225, for 
details. 



USEFUL HINTS FOR RUNNING A BATCH JOB 

1. It is often necessary to create an end-of-file while running a batch 
job. A $ENDFILE placed at the point where an end-of-file is needed 
will accomplish this. In addition there is an automatic end-of-file at 
the end of each batch job. 

2. Any object deck in the source stream should be terminated with either 
an LDT card (see loader section) or a $ENDPILE. 

3. It is strongly recommended that the user place his name enclosed by 
primes as the last parameter on the $SIGNON card. 

U. Occasionally it is necessary to rerun a batch job and a user should 
take this possibility into account. For example, a user may create and 
give contents to a file in the first part of his job and empty and give 
new contents to the same file later. If it became necessary to rerun 
this job after it had already given the second contents to the file, it 
would not run the same if any of the line numbers in the second 
contents differed from the line numbers in the first. To solve this 
problem, instead of $CREATE use either $CREATE followed by $GET and 
$SHPTY or $DESTROY followed by JCfiEATE. 



EXAMPLES OF MTS BATCH JOBS 



Sample FORTRAN compilation and run. 

SSIGNON X007 "JAMES BOND* 
SRUN *NEWFORT; 0=-OB;JECT 
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FORTRAN program 



$ENDFILE 

$EON -OBJECT *SINK*; 1=*S0URCE* 2=*SINK* 



data 



Comments: This job will compile the FORTRAN program in the source stream, 
putting the listing on the printer and the object program in a temporary 
file called -OBJECT. The object program is then run producing a map on the 
printer. The program will use logical unit 1 for input from the job stream 
and write the output on logical unit 2 which will be the printer. 

2. Batch job to initialize the file PHEOG from cards in the input stream. 

SSIGNON P314 'G.J. NOHOPE* 

SCREATE PHROG 

$EMPTY PHROG 

$GET PHROG 

SNUHBER 



cards to go into file 



JDNNDMBER 
JSIGNOFP 

Comments: The $EMPTY and SGET commands are is only important if the job is 
to be rerun. See above. 

3. Batch job to list the file LISTING-B on the printer. 

$SIGNON Q123 'FIFO STACK' 
$LIST LISTING-B 
$SIGNOFF 

H. Batch job to assemble a program, punching the object deck produced 
(default case) . 

$SIGNON XXXX 'L. OSER' 
SRON *ASMBLR 
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assembly input 



SSIGNOFF 

5. Batch job to run the object deck produced in the previous example. No 
map is wanted, and the program will read from SCAEDS and print on 

SPRINT. 

SSIGNON XXXX TIME=20 PAGES=62 • L. USEE* 
$BON 



object deck 



SENDFILE 



data for the program 
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TERMINAL USER'S GUIDES 



This section contains usage information for the various types of console 
and terminal devices supported by MTS, such as teletypes, 2741s, etc. 
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TELETYPE USER'S GUIDE 



(For Teletypes through 2702) 



Introduction 



This document gives instructions for initiating, operating, and termi- 
nating use of a teletype terminal calling in on numbers that go through a 
2702 transmission control in MTS. (See section MTS-170 for a description 
of teletype use through the Data Concentrator — which is being used depends 
on the telephone number called.) The teletype terminal may be either a 
model 33 or 35, ASE or KSR model connected to the Bell Telephone System 
dialable network through an upright data phone and must be capable of 
half-duplex operation. A teletype with an inverted data phone or connected 
to the TWX network cannot be used as an MTS terminal. Although an ASE 
teletype with paper tape equipment may be used via the keyboard, MTS has no 
provisions for receiving or transmitting information via paper tape. 

Teletypes are connected to the IBM System/360 through an IBM 2702 
Telecommunications Control using a Telegraph Type II adapter. The IBM 2702 
is connected to the telephone system through model 103A2 data sets<. These 
data sets are assigned a block of telephone numbers in a trunk-hunting 
sequence within the University Centrex System. The telephone number is 
listed under 270.2 - TEL ETY PE PORTS in MTS-270. 

Initia t ion Pr ocedure 

To ready the teletype for use with MTS, proceed as follows: 

1. If the teletype has the option to run in either half-duplex or 
full-duplex mode, place it in half-duplex mode. On some model 35 | 
teletypes this is accomplished by twisting the HDX switch, which is 
located to the left of the Keyboard, in a clockwise direction. On a 
model 33 and some model 35 teletypes flip the toggle switch located | 
above the telephone dial to the HDX position. 

2. Press the button labelled PRIG located beneath the telephone dial. 
You should BOW hear a dial-tone over a speaker inside the teletype. 
The volume control for the speaker is a knurled knob located to the 
right of the keyboard of a model 35 teletype or on the front panel 
of a model 33 teletype. 

3. Dial the telephone number of the IBM 2702 - TELETYPE POHT,» The 
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telephone number is listed in MTS-27 0. The first telephone number 
listed will search all of tne numbers and connect you to the first 
available one. If your teletype is in the University Centrex 
System, you need dial only the last five digits of the telephone 

number. 

4. If MTS is on the air and there is a free line, your call will be 
answered. Either a busy signal or a ring with no answer indicates 
that MTS is not on the air or there are no free lines. 

5. After answering your call MTS types out: 

aNIVEESITY OF MICHIGAN TEB MINAL SYSTEM; ANN ARBOR. MI CHIGAN. 
WHO A R E YOU? 

If your teletype does not respond with an automatic answerback, you 
must type one. To do this, press the K button to the left of the 
keyboard and type: 

a. RETURN 

b. LINE FEED 

c. A sequence of up to ten characters. 

d. RETURN 

e. LINE FEED 

f. X-OFF 

6. If you have not already done so, press the K button to the left of 
the keyboard. This connects the keyboard to the telephone line. 

7. When MTS types the character #, it is operational and ready for a 
command line. The first command you issue should be SSIGNON. For a 
description of the commands see MTS-230. 



Keyboard Operation 



During normal operation, the teletype is in one of three modes: receive 
mode, transmit mode, or idle mode. Since the teletype keyboard does not 
lock or otherwise indicate the current mode, it is the user's 
responsibility to be aware of the current mode and act accordingly. A 
description of each mode and the action to be taken by the user in that 
mode follows: 

1. The teletype is in r eceive mode whenever a message is being typed on 
the teletype by MTS or some program running under MTS. The first 
character of the output line is a prefix character whic^ indicates 
"who is speaking". These prefix characters are defined in MTS-220. 
The terminal user should not type on the keyboard while the teletype 
is in receive mode. 

2. The teletype is in transmit mode whenever MTS or some program 
running under MTS is waiting for the terminal user to type in a line 
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at the teletype. A prefix character is typed out as the only 
character of the line to show that input is expected and indicate 
"who has requested it". These prefix characters are defined in 

MTS-220. 

The terminal user should respond by typing in the requested line, 
terminating it by typing the character X-ON (control Q) or the 
character X-OFF (control S) . Note that the BETDRN character is 
treated just as any other character and will not terminate a line. 
There are two classes of characters which have special significance. 
The first class are characters which can be used to edit the line as 
it is typed in before it is given to the routine requesting it. The 
characters are described briefly in MTS-220 and in more detail in 
the table below. Characters of this class will be treated as 
ordinary characters if preceded by the "literal next character" 
character. The second class of characters are those whidh are 
treated peculiarly by the IBM 2702. These characters cannot be 
treated as ordinary characters because of hardware limitations. 

If a transmission error is detected while the teletype is in | 
transmit mode, the prefix character is retyped on the same line and * 
all characters typed up to this point are ignored. The teletype 
remains in transmit mode waiting for the input line. 

An input line may consist of up to 96 characters, not including the 
line termination character. If this count is exceeded, an attention 
is assumed. See the next section of the writeup for details about 
attentions. 

The teletype is in id le mode when it is neither in receive mode nor 
in transmit mode. That is, the teletype is in this mode when the 
program or command being performed is neither writing information on 
the teletype nor waiting for a input line from the teletype. For 
instance, the teletype will be in idle mode if the program the user 
is running is computing with no input or output, or is in an 
infinite loop, and so forth. While in idle mode, the teletype will 
"grunt" for about a second once each thirty seconds. This is meant 
to reassure the user that MTS has not forgotten him. The terminal 
user should not type on the Keyboard while the teletype is in idle 
mode. 
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I CHARACTER 
I 

CONTROL A 
(SOM) 



I— 



CONTROL C 
(EOM) 



CONTROL N 
(SO) 



CONTROL Z 
(S2) 



ROBOUl 



CONTROL Q 
(X-ON) 



CONTROL S 
(X-OFF) 



CONTROL E 
(WRU) 



CONTROL D 
(EOT) 



FONCTION 



The previous character is deleted. 



A logical end-of-file return is 
presented to the program. Any other 
contents of the line are not returned. 



The current input line is deleted. 
The teletype returns to transmit mode 
for t^ie line to be retyped. 



The next character typed is treated 
as an ordinary character, even 
if it is a CONTROL A, CONTROL C, 
CONTROL N or a CONTROL Z. 

This has no effect on characters 
below. 



This character is completely ignored 
by the IBM 2702. 



This character terminates a transmit 
operation in a normal manner. 



This character terminates a transmit 
operation in a normal manner. 



This character terminates a transmit 
operation in a normal manner, unless 
it is the only character typed, in which 
case it causes MIS to give its answer- 
back and the transmit to be retried. 



This character terminates a transmit 
operation by hanging up the tel- 
etype. This is not the approved 
way to terminate a session. 



Table I: 



Characters wnich have special significance dur- 
ing transmit operations. Control characters 
are typed by holding down the control key while 
typing the character, control-shift characters 
by holding down both the control and the shift 
keys While typing the character 
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Attentions 

An attention is a signal to MTS to interrupt whatever it is doing for 
you and return for further command lines. An attention can be used, for 
instance, to interrupt a SLIST command after you have seen all which you 
wish to see from the file, to interrupt a program which is executing to 
check its progress and so forth. A program that has been interrupted via 
an attention can be continued at the point of the most recent interrupt by 
using the S RESTART command. There are a few times when an attention will 
not interrupt MTS. These are: during the initial signon procedure, during 
the signoff procedure, and if you have just issued an attention which has 
not taken effect yet. 

To issue an attention to MTS press the BR EAK button. This button is 
located to the left of the keyboard on a model 35 teletype and at the right 
end of the keyboard on a model 3 3 teletype. After pressing the BRML 
button, press the BREAK RELEASE button located above the telephone dial and 
the K button located to the left of the keyboard. MTS should now type out 
the message: 

ATTENTION ASSUMED. 

The exact action taken next depends on what mode the teletype was in at the 
instant the the BR EAK button was pushed: 

1. If the teletype is in receive mode, the exact action taken depends 
on what HTS was doing at tne moment of the attention. Three 
situations are possible: 

a. If MTS has already set up the next line of output and was 
waiting for the current line to finish so that it could type 
this new line out, the new line is typed out before the 
interrupt is taken. 

b. If MTS was waiting tor the current line to finish so that it 
could request a new line from the user, the new line is 
requested before the interrupt is taken. This is necessary in 
case the user decides to continue after the interrupt. 

c. If MTS was not waiting tor an input or output line from the 
teletype the interrupt is taken immediately. 

2. If the teletype is in transmit mode, the line which was requested 
must be entered before the interrupt is taken. This is necessary in 
case the user decides to continue after the interrupt. 

3. If the teletype is in idle mode, the interrupt is taken immediately. 
When the interrupt is finally taken as described above, the message 

ATTE NTIO N INTERRG PT AT XX X XXXXX 
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is typed, where XXXXXXXX is the right half of the PSW at the time of the 
interrupt. The teletype is then placed in transmit mode waiting for a 
command line to MTS. 

Norma l Termin ation Procedure 

If the teletype is not in transmit mode waiting for a command line, 
issue an attention. When the teletype does enter transmit mode waiting for 
a command line, type in a SSIGNOJPF command. MTS will now close all your 
files, type out several lines of statistics for this session, and turn off 

the teletype. 
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Sample Sessio n 

Following is a sample session using MIS from a teletype. Because the 
edit and control characters are non-printing, a control character is 
indicated below by a lower-case letter, the letter being the one pushed 
with the control key down. (e.g., X-OFF is CONTROL-S which is printed as 
"s") At this session, a file was created and a FORTRAN program typed into 
it, the file was edited and then compiled, and finally the object deck was 
run. Messages to the right in parenthesis are editorial comments. 
Underlined characters were typed by the user. 

UNIVERSITY OF MICHIGAN TERMINAL SYSTEH : ANN ASBOR, MICHIGAN. 

WHO ARE YOU?e 

UM CMPC B AA (Answerback code from teletype) 

#$SIGNON QQQs 

#**LaST SIGNON WAS: 12:15:42 05-01-67 

# USslS "QQQ." SIGNED ON AT 13:31.50 ON 05-01-67 
#SCFEATE_DEMOSs 

# FILE "DEMOS " HAS BEEN CREATED. 
#$NUMBERS 

# 1100 FO RMA T (At) s 

# 2BEAD_i5jJ001 ALPHAS 

# 3 vJRIT E_ (6,100_)_ ALPHAS 

# 4G0 TO Is 

# SENDS 

# e^EUNNUMBERs 

#_1_^5_1 CONTINUES 

«£LIST DEMO SS 

100 FORMAT (A4) 
1 CONTINUE 

READ (5,100) ALPHA 

WRITE (6,100) ALPHA 

GO TO 1 

END 

#£^■•0 OF FILE 

»S5UN *FOSTBDIT;SC ARDS=DE MQS SPaNC ri=-SO UfiCEs 
♦EXECUTION BEGINS 
^EXECUTION TERMINATED 
#SLIST -SOURCES 

> 1 100 FORMAT (A4) 

> 2 1 CONTINUE 

> 3 READ (5,100) ALPHA 

> 4 WRITS (5,100) ALPHA 

> 5 GO TO 1 

> 6 END 
#END OF FILE 
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#$BUN-*NEWFORT;SCARDS=-S OURCE 0=-O BJ£C I PAB= NOH APs 
#EXECOTION BEGINS 



FORTRAN IV G LEVEL 0, MODE 



HAIN 



DATE = 13:3 



0001 


100 


FORMAT (Al») 


0002 


1 


CONTINUE 


0003 




READ (5,100) ALPHA 


OOOU 




WRITE (6,100) ALPHA 


0005 




GO TO 1 


0006 




END 



FORTRAN IV G LEVEL 0, MOD 



MAIN 



DATE = 13:3 



TOTAL MEMORY REQUIREMENTS 000132 BYTES 
#EXECOTION TERMINATED 
#$ RON -OBJECT -MAP ; 6=*SINK*s 
#EXECUTION BEGINS 

5 WAS CALLED BOT NOT SPECIFIED. ENTER UNIT NAME OB "CANCEL" 
?*SOURCE*s 

ABCDs 

ABCD 

ABCDn sDELETED 

ABCaYZs 

ABYZ 

X 
ATTENTION ASSUMED. 

ABB As 

ATTENTION INTERRUPT AT 4E0396AA 
#$RESTART 



(Program types back its input) 
(An example of deleting a line) 
(Example of deleting a character) 

(The breaJc key was pressed here) 

(Line requested again in case of 

restart) 



ABBA 
CSENDFILE 



(Note interrupt was transparent) 
(End.-of-file generated) 



IHC217I 

#EXEC0TI0N TERMINATED 

#$SIGN0FF 

#**** OFF AT 13:41.14 

#**** ELAPSED TIME 564.593 SEC. 

#**** CPU TIME USED 9.5 SEC. 

***** STORAGE USED 5051.616 PAGE-SEC. 

#**** FILE STORAGE 1234 PAGE-MIN. 
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Transl ation to and from ASCII 

The IBM/360 computer represents characters internally in a code referred 
to as EBCDIC which stand for Extended Binary Coded Decimal Interchange 
Code. This code represents each character uniquely in eight bits, with a 
hidden ninth bit for parity. Hence there are 256 possible characters 
within the encoding. Of these 2b6 possible characters, approximately 100 
have been assigned commonly used graphics and meanings. The others are 
more or less available for arbitrary use. 

Model 33 and 35 teletypes, on the other hand, encode data in a code 
referred to as ASCII-8. This code represents each character in an eight 
bit code, where seven of the bits are unigue for each character and the 
eighth bit is optionally used for parity checking. Hence there are two 
representations for each character, an even-parity representation and an 
odd-parity representation. There are exactly 128 characters in ASCII-8 and 
each is assigned either a graphic or some control function. 

The teletype support routines in MTS then must translate every input 
character from a teletype into the equivalent EBCDIC character and must 
translate every character going to the teletype into ASCII-8, In order to 
accomplish this, a mapping function was set up. Tne criteria used in this 
function are: 

1. Every unique ASCII-8 character typed in at the teletype is assigned 
a unique representation within tne IBM/360. 

2. Input characters are not checked for correct parity. This means the 
teletype can generate even parity, odd parity, or arbitrary parity. 

3. All characters sent back to rne teletype are sent in tneir 
even-parity representation. 

4. Any EBCDIC character which does not correspond to an ASCII-8 
character (there are 256-128=128 of these) will be converted to tne 
ASCII-8 NOLL caaractar if sent as output to a teletype. 

5. Svery ASCII-8 character xs translated into an EBCDIC character 
having the same graphic or control function if such exists. If 
there is no EBCDIC character witn the same meaning, one of the 
left-over EBCDIC characters was cnosen rather arbitrarily. 

Following is a table showing tne correspondence between the ASCII-8 
character and EBCDIC representation. The X in the eighth bit of the 
ASCII-8 character can be either or 1 on input and is set to force even 
parity on output. 
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BBCDIC E NCODI NG 
(HEXADECIMAL) 

00 

04 

05 

07 

12 

15 

17 

18 

19 

1A 

IB 

1C 

ID 

IS 

IF 

21 

22 

25 

26 

23 

2C 

2D 

2E 
2F 
30 
31 
32 
33 
34 
35 
37 
3B 
3C 
3D 
3E 
3F 
40 
4B 
4C 
4D 
4E 
50 
5A 
5B 
5C 
5D 
5E 



.SCII-8 


ENCODINC 


; NAME 


TTY 


KEY 


FUNCTION 


(BITS 1...8) 




0000 


ooox 


NOLL 


C-S 


-p 


BLANK TAPE 


0010 


100X 


-TAPE 


C- 


T 


TAPE PUNCH OFF 


1001 


ooox 


HTAB 


C- 


I 


HORIZONTAL TAB 


0000 


100X 


DL 


C- 


P 




0111 


nix 


iSSC 






ESCAPE KEY 


1011 


ooox 


RETUfiN 






CABfilAGE BETORN 


1111 


111X 


fiUBOUT 






ALL HOLES PUNCH 


1111 


100X 


S7 


c-s 


-0 




0111 


lOOX 


S6 


C-S' 


-N 




1011 


100X 


S5 


C-S 


-M 




0011 


lOOX 


S4 


C-S- 


-L 




1101 


100X 


S3 


C-S- 


-K 




0101 


100X 


S2 


c- 


Z 




1001 


100X 


S2 


c- 


Y 




0001 


lOOX 


so 


c- 


X 




1000 


ooox 


SOM 


c- 


A 


STAST OF MESSAGE 


1011 


111X 


ALT MD 






ALTERNATE MODE 


0101 


ooox 


LF 






LINE FEED 


1100 


ooox 


EOM 


c- 


C 


END OF MESSAGE 


0011 


nix 


CN FH 






SPECIAL FORM 


1110 


lOOX 


LEU 


c- 


H 




0110 


lOOX 


SYS 


c- 


V 




1010 


100X 


EHBOB 


c- 


a 




1000 


100X 


X-ON 


c- 


Q 


TAPE READER ON 


1111 


OOOX 


SI 


c- 







0111 


ooox 


SO 


c- 


N 




0011 


OOOX 


FOBM 


c- 


L 


FORM FEED 


1101 


ooox 


VT 


c- 


K 


VERTICAL TAB 


0100 


100X 


TAPE 


c- 


B 


TAPE PUNCH ON 


1100 


lOOX 


X-OFF 


c- 


S 


TAPE READER OFF 


0010 


OOOX 


EOT 


c- 


D 


END OF TBANSMN 


0001 


OOOX 


FEO 


c- 


H 




1110 


OOOX 


BELL 


c- 


G 


BINGS BELL 


0110 


OOOX 


fiU 


c- 


F 


ARE YOU? 


1010 


OOOX 


HBO 


c- 


E 


WHO ARE YOU? 


0100 


OOOX 


EOA 


c- 


B 


END OF ADDBESS 


0000 


OlOX 


SPACE 






BLANK SPACE 


0111 


010X 


• 






PERIOD (DECIMAL) 


0011 


nox 


< 






LESS THAN 


0001 


OlOX 


{ 






LEFT PABEN 


1101 


OlOX 


+ 






PLUS OR ADDITION 


0110 


OlOX 


a 






AMPERSAND 


1000 


OlOX 


I 






EXCIAHATION PT 


0010 


OlOX 


$ 






DOLLAR SIGN 


0101 


OlOX 


* 






ASTERISK 


1001 


OlOX 


) 






LEFT PAREN 


1101 


nox 


t 






SEMI-COLON 
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60 

61 

6B 

6C 

6E 

6F 

7A 

7B 

7C 

7D 

7S 

7F 

81 

82 

83 

84 

85 

86 

87 

88 

89 

91 

92 

93 

94 

95 

96 

97 

98 

99 

R2 

A3 

A4 

A5 

A6 

A7 

AS 

A9 

AD 

BA 

BB 

BC 

BD 

CI 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 

D1 



1011 


010X 


- 


NEG. OR MINUS 


1111 


010X 


/ 


OBDIN&BY SLASH 


0011 


010X 


/ 


COMMA 


1010 


010X 


% 


PERCENT 


0111 


110X 


> 


GREATER THAN 


1111 


110X 


7 


QUESTION MARK 


0101 


110X 


• 


COLON 


1100 


010X 


t 


POUND SIGN 


0000 


001X 


3) 


AT SIGN 


1110 


010X 


1 


APOSTROPHE 


1011 


110X 


= 


EQUAL SIGN 


0100 


010X 


II 


DOUBLE QUOTE 


1000 


011X 


a 


LOWER CASE A 


0100 


011X 


b 


LOWER CASE B 


1100 


011X 


c 


LOWER CASE C 


0010 


011X 


d 


LOWER CASE D 


1010 


011X 


e 


LOWER CASE E 


0110 


011X 


f 


LOWER CASE F 


1110 


011X 


g 


LOWER CASE G 


0001 


011X 


tl 


LOWER CASE H 


1001 


onx 


i 


LOWER CASE I 


0101 


011X 


3 


LOWER CASE J 


1101 


011X 


K 


LOWER CASE K 


0011 


011X 


1 


LOWER CASE L 


1011 


011X 


m 


LOWER CASE M 


0111 


011X 


n 


LOWER CASE N 


1111 


011X 


o 


LOWER CASE 


0000 


111X 


p 


LOWER CASE P 


1000 


111X 


q 


LOWER CASE Q 


0100 


111X 


r 


LOWER CASE R 


1100 


111X 


s 


LOWER CASE S 


0010 


111X 


t 


LOWER CASE T 


1010 


111X 


u 


LOWER CASE Q 


0110 


111X 


V 


LOWER CASE V 


1110 


111X 


w 


LOWER CASE W 


0001 


111X 


X 


LOWER CASE X 


1001 


111X 


y 


LOWER CASE Y 


0101 


111X 


z 


LOWER CASE Z 


1101 


101X 


L S 


-K LEFT BRACKET 


0011 


101X 


\ s 


-L BACKWARD SLASH 


0111 


101X 


! 


UPWARD ARROW 


1111 


101X 


♦• 


LEFTWARD ARROW 


1011 


101X 


] s 


-H RIGHT BRACKET 


1000 


001X 


A 


UPPER CASE A 


0100 


OOIX 


B 


UPPER CASE B 


1100 


001X 


c 


UPPER CASE C 


0010 


OOIX 


D 


UPPER CASE D 


1010 


OOIX 


E 


UPPER CASE E 


0110 


OOIX 


F 


UPPER CASE F 


1110 


OOIX 


G 


UPPER CASE G 


0001 


OOIX 


a 


UPPER CASE H 


1001 


OOIX 


I 


UPPER CASE I 


0101 


OOIX 


J 


UPPER CASE J 
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D2 1101 001X K OPPEB CASE K 

D3 

D4 

D5 



D6 1111 001X O UPPEB CASE 



D7 



D8 1000 101X Q UPPEB CASE Q 

D9 0100 101X H OPPER CASE B 

E2 1100 101X S OPPEB CASE S 

UPPER CASE T 
U 



E3 

EU 1010 101X U UPPER CASE 



E5 



E8 



FO 
F1 
F2 



F4 
F5 
F6 
F7 



F9 
FE 
FF 



1101 


001X 


K 


0011 


001X 


L 


1011 


001X 


a 


0111 


001X 


N 


1111 


001X 





0000 


101X 


p 


1000 


101X 


Q 


0100 


101X 


R 


1100 


101X 


s 


0010 


101X 


T 


1010 


101X 


u 


0110 


101X 


V 


1110 


101X 


H 


0001 


101X 


X 


1001 


101X 


Y 


0101 


101X 


z 


0000 


110X 





1000 


110X 


1 


0100 


110X 


2 


1100 


110X 


J 


0010 


110X 


4 


1010 


110X 


s 


0110 


110X 


b 


1110 


110X 


1 


0001 


110X 


a 


1001 


110X 


y 


1101 


111X 




0000 


011X 





UPPER CASE L 
UPPER CASE M 



UPPEB CASE N 




OPPER CASE P 



E6 1110 101X H UPPER CASE 

E7 0001 101X X OPPER CASE X 



UPPER CASE V 



UPPER CASE Y 



E9 0101 101X Z OPPER CASE 



NUMERAL 
NUMERAL 1 
NUMERAL 2 



F3 . 1100 110X J NUMERAL 3 



NUMERAL 4 
NUMERAL 5 
NUMERAL 6 
NUMERAL 7 



P8 0001 110X » NUMERAL 8 



NUMERAL 9 
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IBM TEEMIN&L TYPE 2741 USEE'S GOIDJi 



(For 27413 through tne 2702) 



Introduction 

This guide gives instructions for the use of the 2741 as a remote MTS 
terminal when connected through the 2702 (see section MTS-170 for descrip- 
tion of use through the Data Concentrator - which is being used depends on 
the telephone number called) . The transmission of information between the 
2741 and the CPU is accomplished via the 2702 Transmission Control and 2870 
MultiDlexor Channel. Common carrier connections are utilized and require 
the use of a standard data phone and a 103A data set. The telepnone 
numbers for 2741 terminals are diffe rent th an those f or_teletjr£es and are 
listed in the Data Set Directory MTS-270-1. 

The 2741 may be used as an ordinary electric typewriter when it is not 
beinq used as a communications terminal. For this type of use the mam 
power switch (keyboard) should be "ON" and the "LOCAL-COMMUNICATIONS" 
switch (left side panel) should be set to LOCAL. 

Terminal Procedures; 



Initiation 

A. For use as an MTS terminal tne LOCAL-COMM switch must be set to 
"COMM" and the main power switch must be "ON" before dialing the 
computer telephone number. Tae position of tne "golf ball" 
carrier is not important; it will be reset automatically. 

3. To make the telephone connection depress the "TALK" button on 
the data phona panel, pick up the hand set, and dial the proper 
number. Whan the high pitched tone is heard depress the "DATA" 
button and hang up the nana set. Either a busy signal or a ring 
with no answer indicates tnat MIS is not available at that time 
or that there are no free lines. 

C. A completed call to the system will cause the message UNIVESSITY 
OF MICHIGAN COMPUTING CENTilR, ANN AKBOH to be typed out. This 
is followed by a carrier return (with line feed) and tnen tne 
typing of the character #. Tnis indicates that the first 
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command line ($SIGNON xxxx) can be entered. After entering 
the "signon" command character string, the carrier return key 
should be depressed to indicate the end of the message. 

Conversation Operation 

A. Terminal modes: During operation the 2741 may be in one of three 
modes: receive, control-receive, or transmit . The keyboard 
(with the exception of the "attention" key) is locked except 
when in transmit mode. Normally the 2741 is placed in transmit 
mode only when MTS expects a line to be entered. 

B. Entering MTS lines: Alphabetic characters in c ommand line s are 
always converted to upper case before the command line is 
analyzed; thus SSIGNON and Ssignon produce the same effect. 
Data lines, however, are entered exactly as they are typed at 
the terminal. If automatic upper case conversion is desired for 
keyboard entry of alphabetic characters, one may use the JSET 
command to specify forced upper case conversion for lines read 
by the MTS monitor, and the SUC modifier in all other cases. 

A line may be deleted by depressing the "attention" key. In 
addition to the line delete function three characters are 
assigned special control functions for the 2741 communications 
with MTS. These are: 



1 



Back space - this causes the preceding character of an input 
line to be deleted. Consecutive backspaces may be used to 
delete several previous characters or even an entire line; 
however, if an entire line is wiped out with backspaces and 
then the carrier return key is depressed a zero length line 
is transmitted to the MTS routines. (Note that his differs 
from a line delete via the attention key. A line deleted 
via "attention" is never transmitted to the MTS routines. 

2. Cent sign - this is used to indicate logical end of file; 
the contents of the input containing a £ are not transmitted 
to MTS, only the end-of-file signal is transmitted. 

3. Exclamation point - this is used as the "literal next 
character" character. Should it be desirable to actually 
enter a backspace, cent sign, or exclamation point into a 
command or data line, these characters can be preceded by 
one "exclamation point" . in this context the pair of 
characters is taken as a single character with the normal 
graphic value of the second rather than as a sequence of 
control characters. 

The order for analyzing input lines is as follows. 

a. A line is deleted if the attention key is depressed 
regardless of the contents of the input line. 
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b. Literal next characters are applied (note that literal next 
characters have no meaning unless they precede one of the 
three special characters and are ignored if out of context) . 

c. If any backspaces remain they are applied to delete the 
appropriate previous characters. 

d. If an end-of-file character remains, a logical end-of-file 
is returned to MTS ; otherwise the edited line is returned* 

Any length of time may be used to enter a single input line via 
the 2741; however if tnere is no activity for a span of 
approximately 15 minutes the user and terminal will be automat- 
ically signed off. Actually a "timeout" occurs (in the 2702) if 
no character is enterea within 28 seconds of the previous 
character. in this event all characters transmitted are saved 
and the 2702 is again prepared to receive text from the 2741 so 
that another segment of tne input line can be entered. An input 
line is thus accumulated over a relatively long time interval. 
It may occur that a user enters a character while the 2702 is 
being reset for the next line segment (very unlikely but it can 
happen) ; in this case tne message LINE DELETED: LOST DATA will 
appear and the entire line will have to be reentered. Input 
lines may contain up to 128 characters. 

C. Attention interrupts: An attention interrupt is a signal to MTS 
to interrupt whatever it is doing for you and to return for 
another command line. One may interrupt the execution of a 
program, the listing of a file, etc. by depressing the 
attention key. If an attention interrupt is desired while the 
2741 is in transmit mode the attention key should be depressed 
twice; the first time to cause line deletion and the second time 

during the typing of the "LINE DELETED" message. That is, 

attention interrupts are possible only when the 2741 is in 
receive mode, i.e. only when it is receiving a line from MTS or 
during execution of some program. The 2741 will type out the 
message ATTENTION INTERRUPT AT XXXXXXXX and return to transmit 
mode after typing #. At this time you may enter a new command 
including ^RESTART which cause execution to resume where it was 
interrupted. 

Termination Procedure: With the 2741 in transmit mode enter the 

command SSIGNOFF. After this command line is scanned MTS will 

properly close all of your riles (this may take a few seconds) and 

then type out a summary ot your session at the terminal. The line 
will be automatically disconnected. 
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1050 USEE'S GUIDE 

It is possible to use an IBM lObO terminal in MTS by dialing the same 
numbers as are used for an IBM 2741. The 1050 must have several special 
features and RPQ's, primarily send and receive break. A complete User's 
Guide is in preparation and will be released as soon as possible. 
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2250 MODEL I DISPLAY USER'S GUIDE 

-^his writeup gives instructions for the use of the 2250 Model I Display 
as a terminal running under MTS. Terminal and system interaction is 
strictly in character mode using only the alphanumeric keyboard and the 
programmed function keyboard. Various library files and user programs that 
run via a RUN command may (and do) use tha light pen and graphics features 
of the 2250. 



Initiation 

When the 2250 is activated and ready for users, the screen is blank and 
the programmed function keyboard lights are lit up in a block "M". 
Pressing any programmed function keyboard button causes tne standard reply 
"UNIVERSITY OF MICHIGAN TERMINAL SYSTEM" to be displayed on the screen and 
a cursor is positioned at the bottom of tne screen. The $SIGNON command 
may now be entered via the alphanumeric keyboard. 



Conversation al Operation 

ir command mode and during EUN's that are not graphics programs, the 
last 20 input or output lines are displayed on the upper half of tiie 
screen, and space for two lines (148 characters) of characters to be input 
is provided "at the bottom of the screen, with a cursor when the program 
(JITS or user program) requests input. Tnese two lines form one logical 
line of up to 148 characters to be sent to the computer when requested. 

Alphanumeric_Keiboard. Striking a character key on the keyboard (when 
a cursor is displayed) causes that character to be input to the input 
region which is displayed at the bottom of tiie screen. END (hitting the 5 
key while holding down the ALTN CODING key) causes the contents of that 
input region, up to the cursor, to be ii.put to the program. CANChl 
(hitting the key while holding down the ALTN CODING key) causes the 
contents of the input ragion to be erased; nothing is sent to the program. 
Th« ADVANCE and BACKSPACE keys position tne cursor along the input line. 
The JU^IP key moves the cursor back to tne first character in the input 
line. T-he space bar is not the same as ADVANCE: it enters a blanx into tne 
-input line as well as advancing the cursor by one position. The COimTINUE 
key, if held down when a character Key is hit, causes that character to be 
repeated across the input line until bota keys are released. 
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££23£aanied — Function Keyboard. All keys except 28 and 2 9 are legal 

only when they are lit. 

Key causes an attention interrupt to be generated. 

Key 3 causes the display to revert to the last 20 lines. (way to get 
back to original position after scrolling) 

Keys 11,16,18,23. 

At any given time, up to the last 2000 lines of input/output are 
saved in virtual storage. (If this limit is exceeded, all but 
the last 4095 characters are thrown away) These lines can be up 
to 148 characters (input) or 2b5 characters (output) long. The 
display screen may be thougnt of as a "window" 74 characters wide 
and 20 lines deep, looking out over this region. In order to see 
everything, it is necessary to be able to scroll (move back and 
forth) the background up and down, and right and left behind this 
window. These four keys (11, 16, 18, 23) are arranged in a 
diamond, and pressing the obvious key starts scrolling in that 
direction. Pressing the key a second time stops it. Key 28 (see 
description) controls speed. 

Key 15 releases all previous input/output lines saved except the last 
4096 bytes. 

Key 27 when pressed causes a "new output page" to be displayed. The 
last 20 lines are saved and the 20 line display area is blanked. 

Key 28 is a slow-fast key wiiich controls the rate at which output is 
displayed. 

aNLIT: fast - as fast as can be received. 
LIT: slow - about one line per second. 

Each press of the key flips it between the fast and slow states. 
It is initially unlit. 

Key 29 is a stop-go key which controls the accepting of output lines 
from the program. 
UNLIT: go - lines are accepted and displayed at the speed 

specified by key 28. 
LIT: stop - accept no more output lines for the time being. 
Each press of the key flips it between the stop and go states. 
It is initially unlit. 

Key 31 gives an end-of-file. 
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TAPE USERS GUIDE 



INTRODUCTION 



This document gives instructions for mounting and accessing data stored 

on magnetic tapes. Nine track tapes and seven track tapes written at 

either 200, 555, or 800 BPI with odd or even parity are currently 
supported. 



BASIC CONCEPTS 

In order to absolve any ambiguities which might arise the following 
definitions are offered. 

7 and 9 Track Ta pes 

A 7 track tape frame contains 6 bits of data and one parity bit; a 9 
track tape frame contains 8 bits of data and one parity bit. This property 
of the tape is a direct function of tne tape unit upon which the tape was 
written; that is, all 7 track tapes must be read and/or written on 7 track 
tape units, all 9 track tapes must be read and/or written on 9 track tape 
units. All 7090 compatible tapes are 7 track tapes. 

Odd an d EYen._Parity 

The above mentioned parity bit may be manipulated so that there are 
either an odd (odd parity) or an even (even parity) number of bits set to 
one in each tape frame- If binary records are to be written odd parity 
must be used to prevent loss of data. Common usage also requires that 7 
track BCD tapes be written with even parity. 

Densities 

It is possible to write 7 track tapes in any one of three densities: 

(a) 200 BPI which corresponds to our 7090 low density 

(b) 556 BPI which corresponds to our 7090 high density 

(c) 800 BPI which cannot be read by our 7090. 
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All 9 track tape drives write at 800 BPI density. 



Translator and Data Converter 



Since 7 track tape characters contain only 6 bits of data and 360 data 
bytes contain 8 bits of data it seems like there is a problem getting from 
one to the other. To solve these problems the translator feature and data 
converter features are provided. By playing the appropriate games it is 
possible to write a 7 track tape with either translator on, data converter 
on, or both features off. 

If translator feature is on an automatic conversion is invoked which 
translates most 8 bit EBDIC characters into their corresponding 6 bit BCD 
counterparts. 

If data converter feature is on 4 tape characters will be produced for 
each 3 data bytes. All 8 bits in each byte are thus transmitted. Data 
converter on forces odd parity. 

If neither translator or data converter is specified the low order 6 
bits of each data byte are transmitted to/from the tape. To insure 
accurate data transmission odd parity snould be specified when both 
translator and data converter are off. 



9 track tape users should just forget all that noise, 
are written in odd parity at 800 BPI. 



All 9 track tapes 



File Protect Ring 



Since writing on a tape destroys any information which may have been 
stored upon it a file protection device is provided to prevent accidental 
erasure of save tapes. This device, hereafter called file protect ring, or 
just ring for short, must be inserted in a groove in the back of the tape 
reel to allow writing on the tape. The user must specify at the time the 
tape is mounted whether the ring is to be in (allowing writing) or out 
(prohibiting writing) . 



Record Size 



Every normal read or write operation transmits a block of data to/from a 
taoe unit. This block of data is called a record. Usually a record 
corresponds to one line in a file; but it is also possible to write very 
large records. One of tne attributes associated with a tape is an upper 
bound to the size of a record. 
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End of Tape Area 

Approximately 20 feet from the end of each reel of tape there is a 
silver strip known as the end of tape marker. There is enough tape after 
this marker to allow users who desire to write a short (5 records or less) 
trailer label. Users will not be allowed to write more than 5 records in 

this area. 



Pseudo-Devic e Names 

Because there will usually be more than one active user at any given 
time it is not always possible to predict with any great probability of 
success what particular tape unit will be free. Therefore all references 
to tapes should be made through pseudo-device names (PDN's). MTS will then 
determine which unit the PDN refers to and the appropriate read/write 
function will be performed. A PDN may be used exactly as if it were a 
"FDname". 

A PDN consists of an asterisk followed by a string of from one to 
fourteen alphanumeric characters and terminated by another asterisk. For 
example, *NAME* and *TAPE* are valid pseudo-device names. Note that MTS 
preempts certain PDH's (see MTS-210). Those names may not be used as 

PDK's. 



OSING TAPES 



Mounti ng _a_Tape 

It is possible to have a tape mounted while in execution or command 
mode. In eitner case the file *MOUNT should be used - see HTS-280/44545, 
JlTS-25'5/4a645 and MTS-253/44645 . The user should specify at the time of 
the mounting of the tape both the mode and record size of the volume if the 
default parameters are not to be used. A table of all legal modesets may 
be found later in this section. The current default mode is SEN for 7 
track tapes (corresponding to 7090 nigh density BCD tapes) . Users wishing 
to write 7090 binary tapes should specify M0DE=50F. 9 track tapes do not 
have a siode associated with them. 

The default record size is 25 6 characters but i. users reading and/or 
writing large records may specify any maximum up to 32767 characters. 
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Removi ng Tapes 

There are three ways to have a tape removed from a tape drive: 

(1) Mount another tape on the same pseudo-device - that is, invoke *MOOMT 
using a PDN which has been used before for another tape. The first tape 
will be removed and the second mounted in its place. The mode and record 
size of the first tape will be used for the second tape unless explicitly 
reset. 

(2) Invoke *DIS!1I10UNT (see IlTS-280/24627 and MTS- 253/24627) 

(3) Sign off MTS. 

In either case if the last operation performed on the tape was a write, 
five end-of-file marks will be written on the tape to terminate it before 
it is unloaded. 



Data T ransmis sion 

To transmit data to/from a tape in a program attach the PDN associated 
with the tape to any logical device. Then transmit to/from that logical 
device as if it were a seguential file. For example, 

SPRIMT=*TAP£* 
In commands, use the PDN for a FDname. For example, 

$COPY FILE1 TO *TAPE* 



RETORN CODES 

The return codes resulting from data transmission to/from tapes extend 
beyond those returned from other devices. They are 
Normal return 

U (from read operations) End-of-file mark detected, 
(from write operations) End of tape strip sensed. 
8 Tape load point has been sensed on backspace command. 
12 User attempted to write more than five records in end of tape 

area. 
16 Permanent read/write error (on read, tape will be positioned past 

bad record) . 
20 Attempt to write on a file protected tape. 
24 Equipment malfunction. 
Unless the device error exit has been set by the user, all return codes 
greater than 4 will be intercepted by MTS and the current RUN will be 
terminated. Control will be returned to the user in command mode. If the 
device error exit has been set the user may recover from the error in any 
way he chooses and still remain in execution. (see a description of the 
SETIOERR subroutine) 
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Control Functions 

Users may want to initiate such control functions as rewinding and 
backspacing tapes. This is done by attaching the logical carriage control 
attribute to the tape. In this case the first three bytes of the "region" 
specified in the user's call are used to specify the control operation 
desired. A complete table of the tape controls is given below. 

This same procedure allows users to change modes during execution. 
(perhaps to read a record with bad parity) The legal modesets are also 
listed below. In addition to changing the mode, the data is also 
transmitted on recognized modesets. In the case of a write the remaining 
"length"-3 bytes are written; for read, the record is read into the region 
beginning at the first byte of the region (and wiping out the modeset) . 

If logical carriage control was specified but the first 3 bytes are 
neither a legal control function nor legal modeset, the entire record is 
written (or read) as if logical carriage control had not been specified. 

Tape Control Functions 

T.ogical Command Action Taken Non-Zero Return 

Code Meaning 

jfTH End of file record written. none 

Wi?F ^ „ 

psy Tape spaced forward past next 4=in end of 

end of file record. tape area 

FSB Tape spaced forward one record. U=tape mark 

sensed 
3Sy Tape spaced backward J2ast 8=loadpoint 

next end of file record sensed 

BSB Tape spaced backward one record. 4=tape mark 

sensed 
8=loadpoint 
sensed 
gEW Tape rewound to ioadpoint. none 

SON Tape rewound and unloaded. none 

SRI Fesets maximum record length. 4=illegal 

(the length should be tne five length 
characters following the "SSL", 
left- justified with trailing blanks) 



Mode Setting Commands 
(for 7 track tapes only) 

(1) "^ypa 1 are of the form "dCV" 

(2) Type 2 are of tne form "dpt" 
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where "d" is the code for density: 

2 for 200 BPI 

5 for 556 BPI 

8 for 800 BPI 
and "p" is the code for parity: 

for odd 

E for even 
and "t" specifies whether or not the translator is on: 

F for translator off 

N for translator on 

Since 7 track tapes can carry only 6 bits of information per tape 
character and 360 bytes have 8 bits per word a compromise was necessary 
Type 1 records, written with DATA CONVEHTOR ON write 4 tape characters for 
each group of 3 bytes, overlapping from one tape character to the next. 
Type 2 records maintain a one-to-one correspondence between core bytes and 
tape characters, but use only the low order six bits in each byte. 
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PAPER TAPE US ES' S GUIDE 

The Computing Center has installed on the 360/67 a 2671 paper tape 
reader (see IBM manual A24-338b) and a 1012 paper tape punch (see IBM 
manual A26-5776 plus RPQ 834427 description "1012 Attachment to System 
360") . Programming support for these xs underway, and a full writeup will 
be issued shortly. The routines are being constructed so that using paper 
tape will be like using magnetic tape, and the MOUNT and DISMOUNT 
subroutines will be used to mount and remove paper tapes. 
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DATA_CgNCENTRA.TOR USER' S GUI DE (TELETY PES . 27 41S. REMOTE CQMPnTBR.q) 
THE DATa CONCENTRATOR 

Terminal equipment with unusual characteristics can be attached to MTS 
using the facilities of the Data Concentrator, a special-purpose terminal 
control attached directly to the Model 57. The Data Concentrator consists 
of a Digital Equipment Corporation PDP-8 computer to which special 
interface equipment has been attached. Due to its programmable nature the 
specification of supportable terminal equipment is rather flexible, and 
includes provisions for all available AT8T Teletype equipment including 
Models 28/32 (45.45) baud), 33/35 (110 baud), and 37/38 (150 baud) 
operating at speeds to 150 words-per-minute. Also supportable is all 
announced IBM remote terminal equipment capable of operation on the 
switched-telephone network at speeds to 2000 baud, as well as certain 
special-purpose data transmission equipment including that intended to 
interconnect remote computer terminals and tne MTS system. 

All of the Data Concentrator equipment is sponsored by the Advanced 
Research Projects Agency (ARPA) in support of the CONCOMP (Research in 
Conversational use of Computers) project. Usage by the general user 
population is possible after inquiry to the CONCOMP project and approval by 
the Project Director, F. H. Westervelt, on an as-available basis. 
Initially, the following terminals will be supported (about 1 December 
1967): ATST Model 33/35 Teletype, IBM 2741 Typewriter Terminal, and remote 
computer terminals utilizing AT&T 201A serial synchronous data sets. 
Operating procedures for use with these terminals are discussed below. At 
some future date, about 1 January 1968, ATST X403A Touch Tone digit 
receivers and 801C3 automatic calling units will become available to MTS 
users. Other data set equipment may be added by arrangement with the 
Computing Center and the ARPA project. 

M TS In te rfa ce 

The Data Concentrator appears to MTS as a collection of 32 devices, each 
of which operates independently of all the others. One or more of these 
MTS devices may be logically connected to one or more data set circuits for 
use by the remote terminal. The MTS devices serviced by the Data 
Concentrator are all of type PDP8 and are identified by names of the 
generic class "DCXX", where XX is a two-digit decimal number in the range 
00 through 31. These names can by used anywhere in MTS that a device name 
is meaningful. Within the Data Concentrator itself all of these devices, 
and, in addition, all of the attached data set circuits, appear as a 
homogeneous collection of devices. Each of these Data Concentrator devices 
is assigned an internal logical device number in the range from 00 through 
77 (octal) as indicated in Figure 1. Each device may be used both as a 



70 



MTS-170-0 
12-1-57 



source and a sink without regard as to whether it is capable of full- or 
half-duplex operation. 

Generally, message formatting and error control are transparent to the 
use of a device by MTS, and each such device can be characterized by the 
ability to transmit an indefinite number of records (of 255 characters or 
less) in one direction without regard to traffic in the other directxon. 
Mthouqh some of the data sets and terminal equipment can operate m a 
fill-duplex mode, that is in both the MTS-outbound and HTS-jnbound 
directions simultaneously, each ot the 32 devices interfaced with MTS and, 
indeed, MTS itself can operate in only a half-duplex mode, that is m only 
on- direction at a time. If a particular device is constrained to 
half-duolex operation, then the inbound and outbound traffic is interleaved 
on a record-by-record basis by buffering the messages and turning the 
transmission circuit end-for-end as required. 

A pair of Data Concentrator devices can be interconnected by a copy 
operation, which assigns to each source device a sink device to which all 
message traffic produced by that source will be directed. Although only 
one sink may be assigned to each source by sucii an operation, any number of 
sources may produce traffic to the same sink. In this case the traffic is 
interleaved on a record-by-record basis. Those particular copy operations 
which define the configuration of the Data Concentrator at any moment are 
changeable by commands directed to the Data Concentrator itself. In 
addition, certain commands can cause the behavior presented by any one data 
set circuit to be altered to fit a particular terminal. In this manner one 
set of data set equipment can serve terminals of different types, all ot 
which require the same data set type. 

Although it is possible to associate a copy operation between any two 
devices and to change the configuration of any data set from ^^Y^ terminal, 
and for that matter from HTS itselx, the obvious dangers associated with 
the use of this feature require eniorcement of a policy that all sucn 
operations will be supervised by special MTS library P"9""^- ^^°^, JJj 
present, the equipment will be operated in a rixed configuration providing 
service to those IBM, ATST, and special terminals as described m a later 
section. 
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FIGURE 1: 
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FIGURE 1: (Continued) 
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FIGURE 1: (Continued) 
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Message Form a tting 

All transmission between devices within the Data Concentrator is 
according to the ASCII code interpretation, with translation to that code 
peculiar to any one terminal type provided in the Data Concentrator and HTS 
itself. Thus, an automatic translation is effected between the MTS EBCDIC 
code and the Data Concentrator ASCII code as appropriate and unless 
explicitly modified (see below). In addition the prefix characters 
transmitted by MTS will be forwarded to the device unless explicitly 
modified. Since the internal file structure of MTS permits only those 
records up to 255 characters in length, any longer inbound message will be 
automatically split into several records as necessary. In most cases the 
splitting operation is transparent in the converse outbound operation. 

A message between any pair of devices attached to the Data Concentrator 
is constructed of a string of characters chosen from all those 8-bit 
characters with the exception of certain control characters defined as in 
Figure 2. Certain devices cannot recognize some of these characters, and 
in such a case those characters may be part of the transmitted data stream. 
This particular choice of control characters reflects current ASCII-8 
standards with the provision that all control characters are constrained so 
that the high-order three bits are (100) . This convention is adopted for 
convenience in the transmission of certain tape formats popular with remote 
computer terminal equipment; and, in particular, allow transmission of a 
message consisting of arbitrary 7-bit bytes if the high-order eighth bit is 
forced to a zero. 

The Data Concentrator resident supervisory program recognizes those 
characteristics peculiar to each of its attached devices which are 
logically equivalent to an occurrence of one of the control characters. By 
convention all of these characters, except the SOH and SIX, end the record 
of which they are a part- The ETB, ETX, and EOM are equivalent within the 
Data Concentrator but have various interpretations to the particular 
devices involved. The ENQ and EOT may occur asynchronously with traffic 
between any pair of devices and are interpreted as the attention and the 
halt conditions respectively. Both the ENQ and the EOT have the affect of 
purging all buffers involved and forcing device resets. The ACK and HAK 
are used in connection with circuit supervision and error recovery. The 
SOH is used to precede a header, which is processed by the transmission 
equipment itself (see below) . The STX is used to precede a message under 
certain conditions. 
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Name Function 

SOH start of header 

STX start of text 

ETX end of text 

ETB end of text block 

EOM end of file 

ENQ enquiry 
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Figure 2 



04 
06 

15 

10 



ctl-D 


(EOT) 


ctl-F 


(RU) 


ctl-U 


ctl-P 


SUBGUT 



!D 



!F 



•0 



< — backspace 



OSE OF DATA CONCENTRATOR BY MTS JOBS 



Since the operation of the Data 
fixed-configuration mode from the vie 
associations and device characteristic 
except on special request. The initi 
for some quantity of each of the folio 
to an MTS job: IBM 2741 Typewriter Ter 
serial-synchronous transmission circ 
Support for some quantity of each ox t, 
for use as a utility device within MT 
as the result of the specification of 
the Data Concentrator (see above) in a 



Concentrator is 
wpoint of the user 
s will not norma 
al configuration w 
wing terminals as 
minal, AT&T Model 
uits to remote 
he above terminals 
S. These are obta 
one of the device 
n I/O operation. 



constrained in a 
the internal copy 
lly be modifiable 
ill include support 
master source/sink 
33/35 Teletype, and 
computer terminals. 

will be available 
ined by any MTS job 
names assigned to 



7^ 



MTS-170-0 



12-1-67 



A MTS-inbound or MTS^outbound record beginning with the SOH character is 
directed to a small command language interpreter which is embedded in the 
device support routines associated with the MTS devices. Such a record is 
constructed within MTS by prefixing the SOH character to one of the command 
lines described below. The same record can be constructed at the terminal 
by prefixing the STX-SOH code combination to one of the command lines 
described below. The first STi is necessary in the latter case to 
differentiate the MTS - interpreted commands from those interpreted within 
the Data Concentrator itself. Commands recognized at present include: 

JOB - Print MTS job number and device name for this I/O device. 

PPX OFF - Turn off prefix character transmission from MTS. (equivalent 
to asP modifier) . 

PFX ON - Turn on prefix character transmission from MTS (equivalent to 
©-■SP modifier) . 

BIN ON - Turn off both EBCDIC/ASCII code translation and prefix charac- 
ter transmission from MTS (equivalent to SBIN modifier) . 

BIN OFF - Turn on EBCDIC/ASCII code translation (equivalent to a-«BIN 
modifier) . 

These commands are effective only if the MIS job is in condition to read 
from or write on the device in question. If a command is not recognized 
following the SOH the entire command line is deleted. 

A reference to an MTS device name of type PDP8 may be followed by 
modifiers of the form SHOD or a-»HOD (see elsewhere, this manual) . Those 
modifiers recognized in an unusual manner in connection with the Data 
Concentrator are: 

asP - Turn off prefix character transmission from MTS (equivalent to 
PFX OFF) . 

a-iSP - Turn on prefix character transmission from MTS (equivalent to PFX 
ON) . 

3EIN - Turn off both EBCDIC/ASCII code translation and prerix character 
translation from MTS (equivalent to BIN ON) . 

S-iBIN - Turn on EBCDIC/ASCII code translation (equivalent to BIN OFF) . 

Other modifiers applying to the MTS device itself are given the standard 
meaning. 

ATST Models 33/35 

The operation of the Teletype itself is outlined elsewnere; only those 
features differentiating the Data Concentrator operation from the conven- 
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tional operation are summarized here. Operation of the Teletype is in a 
full-duplex mode, so that separate data streams inbound to MTS from the 
keyboar'l and outbound to the printer from MIS are possible. As characters 
are passed from the keyboard to MTS they are echoed (repeated) on the 
printer for operator verification unless the printer is active for some MTS 
outbouni function, in which case the accumulated echo characters are saved 
until the end of the active line and then output on the printer. 

The end-of-line code is the return key. MTS will respond by sending a 
carriage-return/line-feed to the printer. The end-of-file code is the 
control-Y key. MTS will send a backslash and then respond as in the 
end-of-line case. An attention is transmitted using the BREAK key (or the 
WEU key on Teletype equipment not provided with break feature) MTS will 
send a exclamation point and then respond as in the end-of-line case. A 
character may be deleted by the back-arrow key. A line may be deleted by 
the RUBOUT key. MTS will respond in the latter case by sending a pound 
sign "#" followed by a carriage-return/line-feed to the printer. See 
Figure 2 for additional codes. 

With some care it is possible to achieve a rather efficient utilization 
of the Teletype terminal connected to the Data Concentrator. Pirst, due to 
a one-line print buffer maintained in the Data Concentrator, the MTS output 
function is rather more efficient than that used with the standard Teletype 
terminals. However, due to this feature, the response time for an 
attention interrupt to be acknowledged on the printer will be delayed by 
the time it takes to empty this buffer. Second, due to a one-line input 
buffer maintained in the Data Concentrator, it is possible to queue up to 
72 characters for presentation to MTS before the MTS program calls for 
them. Thus it is possible to enter a command to MTS while output is being 
produced on the printer or while MTS is processing a previous command. If 
this buffer overflows, echoing of the input characters will cease, 
following which it is necessary to either delete the input line or to 
backspace one character and enter the end-of-line code. The attention 
operation always purges this buffer concurrently with presentation of the 
attention condition to MTS. 

IBM 2741 Typ e writer Terminal 

Operation of the IBM 2741 is similar to that in connection with the 2702 
transmission control (see elsewhere, this manual) . Although the 2741 is 
basically a half-duplex device, it is possible to enter a new command to 
MTS while a previous command is being processed. When the printer is 
active, use of the keyboard can be requested by the attention key. At the 
conclusion of the current line of output the keyboard is unlocked. Ose of 
the attention key when the keyboard is unlocked causes an attention 
interrupt to MTS. 

Since this terminal operates in a half-duplex mode, no echoing operation 
is possible. A character may be deleted by the backspace key, and a line 
may be deleted by the pound sign "#". The end-of-line code is the return 
key and the end-of-file code is the cent sign ("0") key. MTS will respond 
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to either the line-delete, end-of-line, or end-of-file keys with a 
carriage-return/line feed to the printer. See Figure 2 for additional 
codes. 

Remote Computer T erminal Transm iss ion Facilities 

Interconnection between UTS and a remote computer terminal is possible 
using any data set attached to the Data Concentrator. Using the 103A data 
set normally associated with the AT6T and IBM Keyboard/printer terminals, 
rates to 200 baud can be sustained in a full-duplex environment with 
start/stop codes to 12 bits in length (including start and stop bits) . 
Using the 202C data set, rates to 1200 baud can be sustained in a 
half-duplex environment with codes similar to those of the 103A. The 
fastest transmission rate obtainable on the switched telephone network at 
this time is provided by the 20 1A data set- Using this data set a rate of 
2000 baud is sustained in a halt-duplex bit-synchronous environment with 
codes to 12 bits in length. 

Only the 201A is supported initially by tae Data Concentrator resident 
supervisor. This equipment is operated with an eight-bit byte size 
including no vertical parity bit. Longitudinal parity control is provided 
with a 16-bit cyclic checksum in the form of two bytes transmitted 
immediately following the end-of- record (fiTX, ETB) characters. All trans- 
mitted records involving header or text transmission are acknowledged by 
the intended receiver in the form of a single-character message, which may 
ba embadded within header or text information proceeding from the intended 
receiver back to the transmitter. 

A message is transmitted, after a short 30 millisecond synchronization 
delay, at a rate of 250 characters per second. Data set turnaround for 
acknowledgement purposes is accomplished in 20 milliseconds within the 
on-campus Centrex telephone network and in 200 milliseconds outside the 
immediate vicinity of Ann Arbor. This longer delay is necessitated by 
certain repeater equipment used on intercity trunks. 

Program support for the matciiing remote computer terminal can be 
provide! in either of two ways. It the remote machine is a PDP-8 or a 
PDP-7 then an opportunity exists to use a scaled-down version of the 
resident multiprogramming supervisor used in the Data Concentrator itself. 
At least three such versions are now in current University use in systems 
which include cathode-ray display equipment, card readers, high-speed paper 
and magnetic tape equipment, BAND tablets, direct-access devices, and audio 
switch equipment. 

The scaled-down Data Concentrator supervisor is designed to operate with 
201A interface equipment specially constructed for the purpose. Several 
interfaces of this kind have been constructed for use at various campus 
locatiois. A rather efficient remote batch-entry and terminal concentrator 
can be constructed from these components attached to a PDP-8 running with 
the multiprogramming supervisor. Botn the supervisor and the 201 A inter- 
face are described in references obtainable from CONCOMP project offices. 
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Alternatively, support for the remote machine can be developed for 
special purposes by using the message formatting and transmission protocol 
described in the references cited. These conventions have been established 
to provide secure error recovery proceaures consistent with reasonably- 
sized support programs. Interface hardware can consist either of the 
interface mentioned above or can be specially synthesized for the purpose. 
With care, it is possible to connect an IBM SDA-II "blind pig" Transmission 
adaptor or any other IBM Binary Synchronous Communications equipment to the 
Data Concentrator with suitable program support. 
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OMMPS AND MTS; A GENEBAL DESCRIPT ION OF THE QPEflATI .NG_SYSTEM 



OMMPS 

UMHPS (University of Michigan Multi- Programming System) is a 
multiprogramming operating system for tJie IBM System/360 series computers. 
UMMPS executes - jobs , which are initxated and controlled from the operator's 
console typewriter. Each job runs in problem state and uses supervisor 
calls for all its input and output operations. 

A job program is the basic set of instructions which are executed when 
an DMHPS job is run. Job programs are core-resident, along with the OMMPS 
supervisor and subroutines. A reentrant job program can be executed at the 
same time by more than one job. When a job program is written a set of 
device types and a set of memory buffers of various sizes are specified. 
Corresponding actual devices and memory space are allocated for any job 
initiated with that job program, and these are retained until the 
termination of the job. By means of supervisor calls, jobs may obtain and 
release additional devices and storage space during their execution. A 
single device (e.g. a card reader, communications terminal, or a disk 
module) is available for at most one job at any given instant. 

The most recent (November, 196 7) versions of OMMPS use the dynamic 
relocation hardware peculiar to the System/360 Model 67 in order to provide 
a virtual memory buffer space of 2b6 pages (one page = 4096 bytes) for each 
job. The supervisor manages real core memory with a demand paging 
algorithm, using an IBM 2301 Drum tor secondary storage. The policies for 
using the queues are as follows: 

(a) A channel program is constructed to read pages from as many of 
the drum sectors as possible. Tne remaining sectors, if any, are 
then used for servicing the first write requests. More than one of 
these channel programs may be constructed at one time and chained 
together, providing a complete schedule of drum operations tor tne 
next several revolutions ot the drum. 

(b) Unless a page in real core enjoys a special "temporarily 
resident" status, it is placed on the queue for page-out as soon as 
it enters core. This queue will be reordered according to the 
usage of the pages enqueued, by means of an algorithm expected to 
undergo a great deal of moaification and adjustment. 

(c) When the paging drum processor requests a set of pages from the 
supervisor to be written on tne drum, those pages are made 
available from the head ot tiie page-out queue only in case core is 
sufficiently full. 
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(d) The supervisor may also refuse to supply the drum processor 
with an empty page for a page-in request, if there are almost no 
available empty core pages. 

The main CPU queue is a list of jobs which are scanned in top to bottom 
ordar, and are given the CPU if they are ready to use it. Whenever a job 
initiates an I/O operation which makes it not ready for execution and 
guarantees that an interrupt will occur when it again becomes ready, its 
entry is removed from the main CPU queue. Other not ready jobs, e.g. 
those in terminal wait or in wait for a non-interrupting event, remain in 
the CPU queue and are passed over when their turns come. (A job in 
execution can also voluntarily place itself at the bottom of the CPO 
queue- ) 

When an interrupt occurs for a job which aoes not have an entry on the 
main CPU queue, this job immediately preempts the job currently allocated 
the CPU (i.e. an entry is placed on the very top of the queue and the new 
entry is dispatched, with the current job remaining interrupted) . Each job 
runs until it waits for some event or until a timer interrupt signals the 
end of a time slice. 

Each job has a personal CPO queue which is used to keep track of 
multiple levels of execution. The top entry refers to the sub-task (if 
any) currently in contention for the CPU. A lower-level entry represents a 
sub-task which has been interrupted but may later be resumed. For example, 
some I/O interrupts cause a new entry on the queue for their processing. 
And a job may be given an attention interrupt by the operator (or MTS 
user) , and then later restarted. 

A wait queue is maintained for each job which contains an entry for each 
entry in the personal CPU queue wnich represents a sub-task cutrently 
waitinq. Thus a job may be waiting at several of its lower levels, 
executing at the top level, yet an interrupt signalling the end of such a 
wait can be properly recorded by removing a wait queue entry for the 
appropriate CPO queue level. 

MTS 

MTS (Michigan Terminal System) is a reentrant job program in OHMPS. It 
provides the capability of loading, executing and controlling programs from 
remote terminals and through a batch stream. Together with UMHPS, MTS 
provides a simple but powerful time-shared computer system, whose salient 
features are these: 

(a) Comma nd language. Several dozen commands are available to 
cause the running and monitoring of programs, the manipulation of 
line files, and other communication with the system. 

(b) Line files . A system of information organized in units of 
lines (1 to 256 characters) and files (0 to many thousands of 
lines) is provided for the storage of programs and data. A file 
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may be public or private, and a private file may be permanent or 
temporary. These files reside on direct-access storage devices. 

(c) Logical devices. When an HTS user specifies the origin or 

disposition of data, he may give, interchangeably, the name of a 
file location or a physical device. A logical device name or 
number is then attached to it. It may refer, for example, to a 
system (public) file, a new temporary private file, a card punch, 
or the operator's console. 

(d) Dynamic loader. A program to dynamically load programs is an 
integral part of MTS. It may be invoked by both commands and 
subroutine calls. 

(e) Libraries. External symbols which have been referred to by a 
set of loaded programs, but not defined, may be resolved by 
reference to a private or system library, which is a fxle 
containing object programs in a special format. Facilities exist 
in MTS and the Loader to pass over a library and selectively load 
only needed subroutines (and the subroutines that they need, etc.). 

(f) Language processors . The MTS system makes available the IBM 

System/360 F-Level Assembler, the IBM POBTBAN IV G-Level Compiler, 
WATFOS (University of Waterloo Fortran load and go compiler) , PIl 
(Pitt Interpretive Language), SN0B0L4 (a string manipulation 
language) , and OMIST, a string processor based on the TEAC 
text-processing language. These programs reside in system files, 
and are executed in the same way as one's own programs produced by 
their execution. Other powerful system features, such as the 
IOH/360 input-output conversion subroutines, macro libraries, plot- 
ting routines, etc., reside in the library and other system files. 
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This major section of the manual presents external specifications: those 
details the user needs to know to use the system. 
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FILES AND DEVICES 



FILES 



a FI LE is an ordered set of zero or more lines where each line consists 
of from 1 to 255 characters. Each line has associated with it a line 
number which is not part of the line. Externally a line number is of the 
form "snnnnn.nnn" where "s" is a sign (••+•• or "-") and "n" is a decimal 
digit. Leading ••+" signs and zeros, trailing decimal points, and trailing 
zeros after the decimal point may be omitted. Internally in calls to 
input/output subroutines (See MTS-252) a line number is a full-word binary 
integer the value of which is 1000 times the external form of the line 
number. For example the line number whose external form is 1.000 (which is 
the same as 1) is stored internally as 

000003E8[hex] (=1000[ decimal]) 
A line number may also be written externally as LAST or LAST ± line number, 
where LAST stands for the line number of the last line currently in the 
appropriate file (if the file is empty, the value is zero). 

There are two methods of reading and writing a file: i ndexed and 
sequenti al. An indexed I/O operation is one in which the line number is 
specified explicitly in the call. A sequential I/O operation is one in 
which the line number is determined by the system as follows: If the first 
reference to a file is sequential the line number is the initial line 
number specified when the file name was entered (or 1 if none was giveni) . 
For a sequential read that is not the first operation the line number is 
taken from the line immediately following the last line read or written in 
a file. For a sequential write that is not the first operation the line 
number is found by adding the increment specified when the file name was 
entered (or 1 if none was given) to the line number of the last line read 
or written. * 

When a file is created (see MTS-230/CSE) a size may be specified for it 
and an amount of space sufficient to hold a file of this size is allocated 
on some direct access device. If an attempt is made to put more lines' into 
a file than will fit in the space allocated to it, the system will try to 
allocate more space for the file. If it is not possible to allocate more 
space, the system will indicate that the size of the file has been exceeded 
and will refuse to put more lines in it. 



IMPLICIT CONCATENATIOM 

Although the maximum size of any single file is limited to approximately 
7000 to 12000 lines, the amount ot data that may be referred to by a given 
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FILE NAMES 



File Names are the names of logical files kept on the disk. There are 

three types: user fil es, scratch files, and l ibrary files . The name of a 
user file consists of from one to twelve characters. If more than twelve 
characters are given, the first twelve are used. The name cannot contain 
blanks, commas, or left parentheses, plus signs, or semicolons, and any 
lower-case letters are automatically translated to their upper-case equi- 
valent. It is strongly recommended that names assigned be alphanumeric 
only, i.e., no special characters, since the specification may change in 
the future. Scratch file names consist of from two to nine characters the 
first of which is a minus sign. They are automatically created the first 
time they are mentioned and are destroyed when a user is signed off. 
Iiik£arj_file names consist of an asterisk followed by from one to fifteen 
characters the last of which is not an asterisk. In use, user names are 
prefixed by the four character signon I.D. to make them unique. library 
files may be accessed by users but are password protected against 
modification. Since it is possible to confuse file names and device names 
(see below) , there must be some way to indicate that a name is a file and 
not a device. This is done by putting a # before the name of the file. 
The # is not part of the name. 



DEVICE NAMES 



Device Names are the names of physical devices as recognized by the 

OMMPS supervisor. The names are 4 characters long (padded with trailing 
blanks, if necessary). If any of these names is used as a FDname it is 
assumed to refer to the corresponding device unless the name is prefixed by 
a #. In general pseudo-device names (see next section) are to be used 
instead of device names when physical devices must be referred to. Some of 
the device names currently recognized by UMMPS are: 



Device Names 



Devic e Type 



DTI 
DCOO 
through 
DC31 



DISP 
PDP8 

PDP8 
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PCH1 
PCH2 
PCH3 
PTPB 
PTPP 
PTR1 
PTR2 
PTE3 
KDR1 
RDR2 
RDR3 
TOCO 
T0C1 
T0C2 
T0C3 
T0C4 
T0C5 
T0C6 
T0C7 



PCH 

PCH 

PCH 

PTAP 

PTPP 

PTE 

PTH 

PTR 

EDE 

RDE 

EDE 

7TP or TP 

7TP or TP 

9TP or TP 

9TP or TP 

7TP or TP 

9TP or TP 

7TP or TP 

9TP or TP 



In addition to these, MTS recognizes the name "OPEE" as the name for the 
operator's console. 



PSEUDO-DEVICE NAMES 

Pseudo-dev ice names are synonymns for other file or device names which 
are assigned for a given user of MIS. They consist of an asterisk followed 
by from two to fourteen characters the last of which is an asterisk. Seven 
of these names described below are automatically defined for each user and 
additional ones may be defined using the program *MOONT (see MTS-160) . The 
oredefined pseudo-device names are: 



*DIJMHY* 

The name *DaHMY* has a special meaning. It may be used as any FDname. 
For output files or devices it represents an infinite wastebasket: lines 
are accepted and they disappear. For input files or devices it represents 
an empty data set: every time a line is requested an end-of-file conditxon 
is returned. 



♦SOURCE* 

The name *SOUECE* has a special meaning. It may be used as any input 
FDname. It refers to the current source file or device. 
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*SINK* 



The name *SINK* has a special meaning. It may be used as any output 
FDname- it refers to the current sink file or device. 



*AFD* 



The name *AFD* has a special meaning. It may be used as any PDname. it 
refers to the current active file or device (that file or device which was 
obtained by $GET or SCREATE) . 



♦PDNCH* 



The name *PUNCH* has a special meaning in batch mode. It may be used as 
any ouput FDname. It refers to the system card punch established for that 
batch run. 



*MSINK* 



The name *MSINK* has a special meaning. It may be used as any output 
FDname. It refers to the master sink file or device which is the terminal 
for conversational operation and tue printer for batch operation. 



♦KSODHCE* 



The name *HSO0RCE* has a special meaning. It may be used as any input 
FDname. It refers to the master source, which is the terminal in 
conversational operation and the operator's console in batch operation. 
(It should not normally be used in batch operation.) 



MODIFIERS 

The action of a file or a device may be. changed by appending to the file 

or device name one or more modifiers. Each modifier consists of an at-sign 

("a") [mnemonic for "attribute"], followed by the modifier name as given in 

the following table. (For meanings of the modifier bits and further 

explanation, see section MTS-252. ) A modifier name may be preceded by a 
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not-sign (".^") to reverse its meaning. (Teletype users should use a minus 
sign) . Jf any modifier is given explicitly in a call to an I/O subroutine 
(see MTS-252) the setting given in the call overrides the setting given 
with the FDname. 



Name 


Bit Set 


S 


31 


SEQUENTIAL 


31 


I 


30 


INDEXED 


30 



EBCD 29 



BIN 


28 


BINARY 


28 


LC 


27 


LOWEaCASE 


27 


OC 


26 


CASECONV 


26 


NOCC 


25 


NOCARCNTSL 


25 


CC 


24 


CAREIAGECONTROL 


24 


SS 


24 


STACKERSELECT 


24 


PFX 


22 


PREFIX 


22 


PEEL 


20 


GETLINE* 


20 


RETURNLINE* 


20 


MCC 


18 


MACHCAECNTRL 


18 



TRIM 16 

SPECIAL 14 

SP 14 



Examples of use: RDRiaBIN 

FILE2 3i3)ia0C 
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LINE NU1BEH EANGES 

When files are written or read indexed , the line number is always 
explicitly given. However, for sequentia l read and write of files, the 
question of the starting and stopping line numbers and the line number 
increments arises. If no specification is made, for sequential read the 
beginning line number is 1 and the ending line number, (the one that forces 
an "end of file" condition if exceeded) is 99999.999- Similarly for 
sequential write the default beginning line number is 1 and increment is 1. 
If for a given usage a different set of specifications is wished, a line 
number range specification may be attached by following the name (or name - 
modifier combination) with the construct: 

{b,e,i) 

where b is the beginning line number, e is the ending line number, and i is 
the increment. Applying no range specification is equivalent to 

(1,99999-999,1) 

B, e, and i, like any line number reference, may each have one of three 
forms 

linenumber 

LAST 

LA ST±linen umber 

For the last two foras, the value of LAST is the line number of the last 
line in the specified file. If the file is empty, LAST has a value of 

zero. 

Any combination of these three items may be left out: trailing commas 
resulting from the omission of items may be left off; leading and internal 
commas are required. 

Examples are: PILE (20) 

FILE2 (20,30) 

NAMEEMAN(-1.359,477.2, .01) 

0UTaMCC(322) 

OOTT5)PFXaCC{10, ,10) 

FYLE(LAST) 

PHYLE(LAST-4,LAST-1) 

PHILE(LAST-IO) 

Since devices are treated like sequential files — line numbers are faked 
for them — the above may also be applied to devices- 
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EXPLICIT CONCaTENATION 

Several files and/or devices may be cliained together by using explicit 
concate nation. This is done by giving the names of the files and devices 
with their modifiers and line number ranges in the order desired separated 

by plus signs. For example 

-LOAD(1,100)+*SSP 

means the contents of lines 1 through 100 of -LOAD followed by the contents 
of *SSP. If two or more consecutive names in an explicit concatenation are 
the same, all but the first may be omitted. For example 



is the same as 



A(1,1)+(LAST) 



A{1,1)+A(LAST) 



If one or more members of an explicit concatenation uses implicit 
concatenation (i.e., contains SCONXINUE WITH FDname) the entire implicit 
concatenation is used as that portion of the explicit concatenation. In 
this case the FDname in the $CONTINO£ MITH may itself be an explicit 
concatenation. The processing of the next member of an explicit concatena- 
tion is started whenever a return code of 4 (end-of-file) is received on a 
read operation or the ending line number of the current member is exceeded 
on a sequential write operation. Care should be exercised when using 
indexed operations on a concatenated file. 

If some member of an explicit concatenation does not exist or is not 
available and the user is not running in batch, he will be given a chance 
to enter a replacement name the first time this member is used. This 
replacement name may be any explicit concatenation of files or devices and 
replaces on ly the one member of the original concatenation. 

Some examples of explicit concatenation are: 

MAIN+SUBE 

DATA(1,1) + (3,10) aUC 
*SOUECE*+DATA+ALLOC (1,10) 
*TAPE* (1 , 10000) +*TAPE2* 



USAGE 

File names and device names are interchangeable. That is, a file name 
may m general be used anywhere a aevice name may appear, and the converse. 
The generic quantity 

<FDname> 
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used in these writeups will signify such an interchangeable designation 
which may be an explicit concatenation of file and device names, and 

<Fnaine> 

or 

<Dname> 

will be used if cases arise where a restriction to a single (i.e., no 
concatenation) file or device name (respectively) is necessary. 

The above interchangeability implies that those names which are listed 
above as device names are preempted from neing file names. If it is 
desired to specify that a name is to be taken only as a file, the name 
should be prefixed with a #. Jor example, 

EDR1 refers to reader 1 
QQSV refers to file QQSV 
#RDH1 refers to file SDR1 
#QQSV refers to file QQSV 
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INPOT LINES 

In the normal course of processing, lines are input from the current 
source file or device and acted upon by the MTS monitor. In addition, if 1 
the current source is not the user's console and the console has an 
attention feature, source can be restored to the console. 

An input line to the MTS monitor is either a command or a data line. If j 
the first character is a dollar sign ($) and the second character is not a 
dollar sign, the line is a command line; otherwise it is a data line. 



COMIIANDS 

A command line starts with a dollar sijn, immediately followed by the 
command- No blanks are allowed. The command may be followed by zero or 
more parameters, depending on the command. These parameters are set off 
from each other and the command by one or more blanks. Commas, semicolons, 
equal signs, and parentheses are also used as break characters in various 
places. A description of each command follows this section. 



DATA LINES 

Data lines are put into the current active file on disk. It the user 
has not established an active file, ne will be so notified when a data line 
is sensed. If automatic line numbering is off, the line is inspected for a 
line number, and what follows the line number is put in the file as the 
line with that number. If there is no line number, zero will be assumed. 
If automatic numbering is on, the line is not inspected but is taken 
verbatim, except that, if the first two cnaracters are dollar signs, only 
one is transmitted to the file. See section aTS-240 for a description of 
the format of data lines. 



PREFIXING 

So that the user can know "who is speaking" and so he knows when input 
is expected, the first character of all lines on consoles (not card 
readers, punches, or printers) except the operator's 1052 (device name 
OPES) is a special prefix character. On output lines this is typed ahead 
of the message. When input is requested, either the prefix character 
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(automatic numbering off) or tue prefix character followed by the line 
number (automatic numbering on) is typed at the front of the line. The 
prefix characters are: 

issued by MTS monitor: # 
issued by user's program at run time: blank 
issued during loading: 

issued during LIST or COPY: > 

issued to prompt user for reply: ? 

issued by the PIL interpreter = 
issued by SDS (Symbolic Debugging Sys.) + 



EDITING 

To allow ease in using the system, means have been devised to allow the 
user to delete the preceding character (i.e., backspace and erase), delete 
the whole line and start over, tab to a given column, tell the system there 
is no more data (EOF) , and so on. In addition, the user needs some way to 
indicate that "this is the end of the current line". This is done by 
having a particular character xndicate each function, such as ? for 
line-delete. To allow the user to actually feed in these control 
characters as data, a literal-next character is defined, which says that 
the following character is not to be interpreted as a control character. 
For example, if ? means line-delete, and X is the literal-next character, 
then ^ ? would be considered as the single text character ? (and of 
course, to get a J_ into the text, M. must be typed) . 

Due to the different character sets available on different terminals, 
which character represents which function varies from device to device. 
Also, due to differences in transmission controllers attached to the 360 

(2701, 2702, and Data Concentrator), a single ter minal wil l behave 

differently depending which phone number is called . A table of control 
characters for devices currently supported as terminal^ is listed below. 
(This is a summary of the information presented in the user's guides in 
Section 100 of this manual. See those writeups for details.) 
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End Delete 
line Line 



Terminal 


Character 


Character 


1052-OPER 


RETURN 
BOB 


? 


TTY 


X-OFF 


CONTEOL-N 


(THROUGH 


2702) 




TTY 


RETURN 


RUBOOT 


(THROUGH 


DATA CONCENTRATOR) 


2741 


RETURN 


ATTENTION 


(THROUGH 


2702) 





Delete Literal 

Char. next 

Character C haracter 

" (none) 



CONTBOL-A CONTROL-Z 



2741 RETURN # 

(THROUGH DATA CONCENTRATOR) 



1050 
(2702) 



RETURN 
or EOB 



EOT 



<- 



BACK- 
SPACE 

BACK- 
SPACE 

BACK- 
SPACE 



CONTEOL-P 

CONTROL-E 

! ATTN 



ATTN 



Cause 


Cause 


Attn. 


EOF 


GOOSE 


CANCEL 


JOB 




BREAK 


CONTEOL-C 


BREAK 


CONTBOL-Y 



BESET 
LINE 



CONTINUATION 



If the last character in the source stream (prefix char #) line is a 
minus sign ("-") , then the next input line is assumed to be a continuation. 
Continuation begins with the first character of the next line, which may be 
assumed to replace the "-" continuation character in the previous line. As 
many continuation lines as desired may be used, with the restriction that 
their total length may not exceed 255 characters. This is effective only 
for lin9s read by the HTS monitor, i.e., read when the prefix character is 
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LIMITS SPECIFICATION 



In order to prevent run-away jobs in batch ruils, it is necessary to 
provide some means for the user to limit the time a job may use and the 
amount of output (paper and cards) it produces. It is also often 
desireable for users at a terminal to be able to limit a RUN of a program. 
To provide this facility, limit keyword-parameters are provided. They are 
of two types, global and local. 

Global limits are limits for the entire job, from SIGNON to SIGNOFf . 
They are to be placed on the SSIGNON card for batch jobs. Default values 
are assumed for any omitted parameters. The current default values are 
given in the table below. 

Within the global limits imposed at SIGNON, the user may specify 
separate local limits on any RUN, LOAD, RESTART, or START command. If a 
RESTART or START command specifies no limits, then what is left of the 
limits specified by the orginal RON or LOAD command is used. 

The first limit to be exceeded, whether global or local, causes a 
comment to be printed and the job to be terminated (in batch operation) , or 
a return to command mode (in terminal operation) . 



1 1 KEYWORD PARAMETER J | GLOBAL | | 
1 QUANTITY 1 PROTOTYPE | UNITS | DEFAULT | EXAMPLES | 


1 CPO 1 {T } { } 1 seconds | | T=6 | 
1 Time | {TIME}=n{S} J seconds | 10 | TIME=3.27S | 
1 1 {M} 1 minutes | | TIME=. 1M | 


I Pages 1 {P } 1 1 1 P=10 | 
I of 1 {PP }=i 1 pages 1 50 | PAGES=62 | 
1 Output 1 {PAGES} 111 1 


1 Punched 1 {C } | | | C=12 j 
1 Card 1 {CP }=i | cards | 1 | CARDS=400 1 
1 Output 1 {CARDS} III 1 
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where i is an integer of up to 5 digits. 

n is a number similar in form to a line number: up to 5 digits in 
front of the decimal point; up to 3 digits after the decimal 
point. 
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COMMAN DS 

The following subdivisions of section 230 describe the commands availa- 
ble. For each is given the name, a prototype explicitly giving the syntax, 
descriptions of the purpose, usage, and effect, and examples. 

For most commands, the first three letters suffice to identify it, so 
only the first three need to be given. For those commands which may be 
truncated, the unnecessary part will be identified by underlining in the 
prototype. 

Notation conventions used in the prototype are: lower case represents a 
generic type which is to be replaced by an item (such as a file name) 
supplied by the user. Upper case is to be repeated verbatim in the command 
(although commands, and those parts repeated verbatim, can be upper-case, 
lower-case, or mixed.) Material in brackets [ ] is optional. Material 
listed in braces {} represents choices, from which exactly one must be 
selected. Three dots following a syntactic unit indicates it may be 
repeated indefinitely. 
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COMMAND DESCHIPTION 



Name: 
Purpose: 

Prototype: 
where 



Osage: 



ALTER 

To alter the contents of a general register, floating point 
register, or specified core location (s) . 



SALTER 



pan 



parj 



pari specifies what is to altered and may be any of the 
following: 



GRx 



FRy 



where x is a decimal (or hexadecimal) 
integer from to 15 

where y is one of the integers 0, 2, 4, 
5 



[ {RF=HHHH} ] HHH where fiF=HHHH specifies an optional 
{RF=GRx } core storage relocation factor and HHHH 
specifies the displacement from the 
relocation factor. The relocation fac- 
tor may be specified as RF=Gfix in which 
case the contents of GRx is used. 

parj specifies the new contents of the register or 
location (s) to be altered and may be any of the 
following: 



C'XXXXX' 

X'HHHHH* 
HHHH 
F'YYYYY' 
H'YYYYY* 



character constant expression 
hexadecimal constant expression 
free form hexadecimal constant 
fullword constant expression 
nalftford constant expression 



Any number of items may be altered each time the command is 
given. This requires the specification of one element from 
the pari list and one from the parj list for each item to be 
altered. The default value for relocation factor is zero 
(unless otherwise set fiy the $SET command) ; however, once 
the user specifies a relocation factor, tnat value remains 
in effect until a subsequent "RF=HHHH" appears in the 
command line. 
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Fffect: Register numbers and addresses are checked for validity and 
complaint is made it illegal values are specified. 

Content parameters are treated as follows: 

1. Character constants are placed, left justified, in 
the register or location specified. Truncation or 
padding with trailing blanks is applied whenever 
appropriate for registers. Sixty-four bit length 
is implied for floating point registers. Any 
EBCDIC character including blank may be given 
between the delimiting primes; a prime in the 
character string must be represented by two conse- 
cutive primes. 

2. Hexadecimal constants (whether free form or in the 
format X'HHHH') are treated differently for general 
registers, floating point registers and core loca- 
tions. For general registers there may be from one 
to eight hexadecimal digits including leading zer- 
oes. The integer value of the constant is loaded 
into the register specified. 

For floating point registers the constant is 
placed, left justified with leading zeroes 
retained, in the register. Truncation (or padding 
with trailing zeroes) is applied whenever it is 
appropriate. Sixty-four bit length is implied. 

For core storage locations the hexadecimal 
digits are placed, two per byte with leading zeroes 
retained, into consecutive core locations beginning 
with the byte specified by the current value ot the 
relocation factor and the displacement given in 
pari. If an odd number of hexadecimal digits is 
given, the last byte of core storage altered will 
have bits 4... 7 set to zero. 

3. Decimal constants whether fullword or half word 
consist o± a sign followed by the decimal digits 
all enclosed by primes and preceded by F or H, 
respectively. The '•+" sign is optional; the ••-•• 
sign is required. For general registers the number 
is loaded into the register specified. Decimal 
constants may not be specified for floating point 
registers. For core locations the value is loaded 
into the fullword (or halfword) whose high order 
byte is specified by the current value of reloca- 
tion factor and displacement. This is done withou t 
regard to boundary alignment . ~ 

Examples: 
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$ALTE3 GE3 1&3E0 FR6 X«4110i' 

$ALT RF=18AE2 2BE X« D502CC7E6000' 3E0 X«05EF« GBA 

$ALTEE 18DA0 C'DON"T DO IT' 

$ALTE5 RF=18808 0150 1808 02EA 1B97 BF=19600 2B6 

$ALTEE RF=1A800 AEC F«-1000' 
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COMMAND DESCRIPTION 

Name: COMMENT 

Purpose: To allow insertion of comments. 

Prototype: SCOMJjENT any text 

Osage: This command is completely ignored and does nothing at all. 

Examples: $CCM This is a comment. 
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COHMAND DESCRIPTION 



Name: 
Purpose: 
Prototype: 
where- 



Osage: 



Effect: 



Examples; 



COPY 

To copy an existing file into another one. 

$COPY [FROM] [fromfDname] [TO] [toFDname] 

froniFDname is the name of the file or device which is to be 
copied. 

toFDnam e is the name of the file or device which is to be 
copied into. 

This command causes the lines of a file or device to be read 
and inserted into a file or device. I.e., it makes a copy 
of the file. If an exact copy is wanted (i.e., each line 
under the same line number as in the original file) , then 
the indexed modifier ('31') must be appended to toFDname. 
Note that if indexed is not specified, a renumbering always 
occurs. Normal usage is to copy a file, but by makxng 
toFDname a punch the file may be punched, and by making 
fromFDname a reader and to FDname a printer or punch an 80-80 
list or reproduce is achieved. 



If fromFDname is omitted, 
if toFDname is omitted, the cu 
fromFDname is omitted or i 
then the words "TO" or "FfiOM" 
will be made if either fromFDn 
that does not exist, or a 
available or is the wrong type 
device, respectively) . There 



the active file is assumed and 
rrent sink is assumed. If 
f t oFDname precedes f romFDnam e 
must be included. Complaint 
ame or toFD name specify a file 
device that is either not 
(is output device, or input 
exists one ambiguous case: 



$COPY FBOM TO toFDname 

In this case, the "TO" is taken as the "noise" word and 
"FROM" as the fromFDnam e. 

Starting with the first line in the file, lines are read 
seguentially from fro mF Dna me until an EOF condition is read. 
Each line is inserted as is into toFDname. 

$COPY A TO B 

$COPY FROM SNARK TO BANDERSNATCH 

JCOPy FILE1 FILE2 
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$COPY F1 (1,20) F2ai 

JCOPY F1 TO F2(10,,10) 

SCOPY TO F2 

$COPY TO F2 FfiOM F1 

$COPY F1+F2(1, 10)+ (25,100) TO F3 
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COMMAND DESCRIPTION 



Name: 
Purpose: 
Prototype: 
where- 



Usage: 



Effect: 
Examples: 



CREATE 

to create a file, either a private file or a scratch file. 

$CRE ATE Fname [ SIZE=f ilesize ] [ VOLOKE=volname ] 

Fnaae is the name of the file to be created. 



Filesize is the e 
in the number of 4 
given, a small 
assumed. In estim 
number of bytes 
appr oximately egui 
The" default size 
SIZE=1300, so that 
enough and thus an 



stimate of the size of the file, expressed 

byte lines. If no size parameter is 

file (approximately 50-100 such lines) is 

ating the the size of a file, the total 

is important; hence 100 80 byte lines is 

valent to 200 40 byte lines, and so on. 

of a scratch file is equivalent to 

the default size is generally large 

explicit CREATE is not needed. 



Volname is the name of the (presumably private) volume on 
which the file is to be created. If it is omitted the file 
will be placed on a public volume where there is space 
available for it. 

This command is used to create all files including scratch 
files, except that it is not needed for scratch files unless 
a SIZE parameter is necessary. It also establishes the file 
created as the current file. Complaint will be made if a 
file by that name already exists. 

Fname is created. Fname becomes the current file. 

SCREATE QQSV 

$CREATE FIT3STANZA7 SIZE=10 
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COMMAND DESCRIPTION 

Name: DESTROY 

Purpose: To destroy a user's file. 

Prototype: ^DESTROY Fname 

where- Fname is the name of the file to be destroyed 

^sage: This is used to destroy user files only, not library 

files. *files.*files.*Complaint is made if the parameter is 
missing, the file specified does not ej£ist or is a library 
file. If the parameter is correct the name of the file and 
an announcement that it is to be destroyed are given and 
confirmation is requested. There are three positive confir- 
mations: 1, OK, or O .K. Anything else is a negative 
confirmation. Appropriate response is made to the user 
after the confirmation indicating that it has or has not 
destroyed the file. 

Example: SDESTROY AABDVAEK 



♦Library files may be destroyed only if the online operator's console issues 

the command. 
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COMMAND DESCBIPTION 



Name: 
Purpose; 



Prototype: 

SDISPLAY 
where aFDname 

par i 



par 3 



DISPLAY 

To display any of tiie following 

1. general registers (any or all) 

2. floating point registers (any or all) 

3. a specified region of core storage 



device on which the items 



[ON aFDname] [par i] par j 

is the name of the file or 
specified are to be displayed. 

are parmeters that govern the format of the display of items 
retrieved from core storage. These may be used to turn 
format switches on or off according to the following table: 



Format Feature 

hexadecimal conversion 
mnemonic conversion 
EBCDIC conversion 
EBCDIC conversion 
double spacing 
double spacing 
double spacing 
long output records 

(130 characters) 
short output records 

(70 characters) 



Turn On Turn Off 



HEX 

MNEM 

EBCD 

BCD 

DSPC 

DELS 

SP2 

ORL=L 

OHL=S 



NO HEX 

MOHNEH 

MOBBCD 

MOBCD 

SSPC 

S6LS 

SP1 

OBL=S 

ORL=L 



are parameters that govern the content of the display. 
may be chosen from the following list: 



They 



GRx where x is the character "S" (if all general 
registers are to be displayed) or a decimal (or 
hexadecimal) integer from zero to fifteen. 



FBy 



where y is the character "S" (if all floating 
point registers are to be displayed) or one of 
the integers 0, 2, 4, or 5, 



PSW the PSW at the time of the last 
interrupt, etc. is displayed* 



error return. 
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RF=HHHH where HHHH 



is a hexadecimal relocation factor 
for core storage locations specified in single 
location or block form. 



RF=GRx where x is an integer between and 15. The 
relocation factor is set to the contents of 
GRx. 



Osage: 



HHHH the hexadecimal address of a single core loca- 
tion to be displayed (address is relative to 
the current relocation factor) 

HHHH... HHHH the range of hexadecimal addresses of a core 
region to be displayed (addresses are relative 
to current relocation factor) . The second 
address given must not be less than the first. 

Default cases for omitted parameters: 



aFDname 



sink 



par X 



ORL=L for line printers, 
ORL=S for console typewriters 

HEX 



SSPC 



par j 



Effect: 



The default value for the relocation 
factor is zero (unless set otherwise 
by the $SET command) . 



The only restriction on the order of parameters in the 
command line is that "ON aFDname" must appear first if it 
appears at all. Format parameters and relocation factors 
assume and retain tne default values until a command line 
entry specifies otherwise. Format parameters and relocation 
factors may be changed by subsequent entries in the command 
line. Whenever a content parameter is encountered in the 
command line it is processed immediately using the format 
parameters and relocation factor value in effect at that 
time. If the last item in a command line is not a content 
parameter, an appropriate comment is made. Hexadecimal 
entries in the command line may contain a maximum of eight 
hexadecimal digits (including leading zeroes) . 

The parameters are inspected to see that the file, if 
specified, exists or that the device, if specified, is an 
output device which is free. If so the remainder of the 
parameters are inspected in the sequence given and appropri- 
ate action is taken. If an individual general register or 
floating point register, or the PS» is specified, it is 
displayed in labelled hexadecimal format; all 64 bits of a 
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floating point register are displayed. Complaint is made if 
the register number is illegal- Similarly, if all of the 
general registers (or floating point registers) are request- 
ed they are displayed in labelled, hexadecimal format. 

Blocks of storage are displayed by calling the subroutine 
SDDMP. See the writeup on SDUMP for details concerning the 
formats. 

Examples: 

SDISPLAY GR3 FES EBCD 18E08. . . 18FA6 (see note below) 
^DISPLAY ON PTB2 MNEM BF=17AB8 000... 2C8 NOHNEM HEX 

RF=1AFB8 23C 
$DISPLAY ON DISPLAYFILE ORL=L GRS FB6 



Note: 



Two instances of ambiguity in parameters may occur. One of 

these is EBCD {tue other is BCD) which, when preceded and 
followed by blanks, can represent either a format parameter 

or the hexadecimal address of a single core location. The 

ambiguity is resolved by interpreting both EBCD and BCD as 

format parameters; to display the single location EBCD one 

may use the block notation EBCD EBCD. 



Command Description (DISPLAY) 109 



MTS-230/Dai1-1 



12-1-67 



COMMAND DESCRIPTION 



Name: 

Purpose: 

Prototype; 



DUMP 



Usage: 



Effect: 



Cause a dump of the job to be given. 



JDDMP 
where 



[ON aFDname] [OBL=x] [par 1] [par 2] 
aPDname 



is the name of the file or device on 
which the dump is to he written. 

X takes the character value "L" or "S" 

to request long (130 characters) or 
short (70 characters) output records. 

P^^ i are format parameters selected from 
the following list: 

HEX hexadecimal conversion 

MNEM mnemonic conversion 

EBCD EBCDIC Conversion 

BCD same as EBCD 

DSPC double spaced 

DELS same as DSPC 

SP2 same as DSPC 

This command is used to cause the dumping of general 
registers, floating point registers, and core storage asso- 
ciated with the job. 

Default cases for omitted parameters: 
aFDname sink 

X L for line printers, s for console typewrit- 
ers and teletypes, S for files 



par i 



HEX (only) 



The parameters are inspected to insure that the file, if 
specified, exists or that the device, if specified, is an 
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output device which is free. If so, the remainder of the 
parameters are inspected. None, any, or all of the command 
parameters may be specified. The only restriction on the 
order in which command parameters are given is that "ON 
aFDname" must appear first if it appears at all. OHL-L may 
be overridden by a subseguent OBL=S in the parameter list 
(and vice v ersa) . if "MNEM" is among the format parameters 
the specification of "HEX" is implied and need not be given. 

The parameters are used to construct the calling sequence 
for the subroutine SDUMP and control is transferred to SDOMP 
once to dump the general register (hex conversion) and 
floating point registers (hex conversion) and subsequently 
to dump successive storage blocks associated with the job. 
The format parameters in the command line govern the format 
of the core storage output information. For details con- 
cerning formats for core storage dumps see the writeup on 
SDUMP. 



Examples: SDOMP 

$DUMP ON PTR2 MNEM DSPC 
$DUMP ON DUMPFILE OEL=L EBCD 
$DUMP HEX BCD SP2 
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COMMAND DESCfilPTION 



Name: 
Purpose: 
Prototype: 
where- 
Osage: 



Effect: 
Examples: 



EMPTY 

to clean out a file without destroying it 

$EMPTY Fname 

Fname is the name o£ the file to be emptied. 

This command is used to clean out a file when none of the 
previous contents are wanted. Complaint will be made if a 
file by that name does not exist. Library files may be 
emptied only if the command is issued from the operator's 
console. If the parameter is correct, confirmation is 
requested exactly as in JDESTHOY (q.v.) unless the file is 
a scratch file. 

All current contents of Fname are discarded. 
$EMPTY S¥ 



$EMPTY 



FILE 2 
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COMMAND DESCBIPTION 

Name: ENDFILE 

Purpose: Provide an end-of-flle indication in the source stream. 

Prototype: JENDFILE 

[Note that there is no abbreviation allowed] 

Usage: This card, if it appears in the source stream, provides a 

local end-of-file indication. It is used to stop Fortran 
from reading source cards, stop COPY or LIST coming from 
♦SOURCE*, and stop object programs from reading source 
cards. 

Examples: $ENDFILE 
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COHMAND DESCRIPTION 



Name: 
Purpose: 
Prototype; 
Osage: 

Effect: 
Example: 



EBEOKDUMP 

Allow automatic clumps in batcii mode. 

SERROBDDMP 

If this command is placed in a batch job and a subsequent 
program executed as a result of $BON or $LOAD/$STABT 
terminates abnormally a dump of the registers and storage is 
given. See also MTS-230/SET 

Automatic dumps are allowed. This has no effect in terminal 
usage. 

$EBB 
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COMMAND DESCRIPTION 

Name: GET 

Purpose: To obtain a file, either private or library, as the current 
file. 

Prototype: $GET Fname 

where- Fna me is the name of the file to be the current file. 

Usage: This command is used to establish an existing file as the 

current file. Complaint will be made if a file by that name 
does not exist or if the name given is a device name. Both 
library and private files may be obtained as the active file 
in this manner, but a password must be provided to allow 
changing of a library file. If the password has not been 
established for the current file by means of $PASSWOBD, the 
first attempt to enter a line in the file will cause a 
request for the password to be forthcoming- 
Effect: Fname becomes the current file. 
Examples: $GET QQSV 

$GET FIT3STANZA8 
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COMMAND DESCfilPTIOM 

Name: HEXADD,HEXSOB 

Purpose: to add or subtract two hexadecimal numbers. 

Prototype: $HEX{ADD} XXXXXXXX XXXXXXXX 

{SOB} 
Where XXXXXXXX represents either a hexadecimal number of one 
to eight digits or GBx where x is an integer between and 
15. 

Osage: The hexadecimal numbers are entered with one or more 

intervening blanks as delimiters. If GEx is used for one or 
both of them the contents of the appropriate general 
register is used. For JHEXiDD the results appear in the 

form : 

SDM = XXXXXXXX. 

For JHEXSOB the results appear in the form: 

DIFF = XXXXXXX. 

Overflows are ignored and negative results obtained from 
SHEXSDB are given with a minus sign preceding the absolute 
value of the difference. 

Example: $HEXADD 1A2 2E81D 

$HEXSOB 003BC8 1EA 

$HEX GR3 3EF 
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COMMAND DESCRIPTION 

Name: LIST 

Purpose: To list, with line numbers, a file or section of a file. 

Prototype: 

{ON} 
SLIST [fromFDname] [ {, } ] [toFDname] 

where- fromFDname is the name of the file or device which is 

to be listed. 

toFDname is the name of the file or device on which 
the listing is to be done. 

Usage: This command causes the lines of a file (or device) to be 

copied onto a device (or file) preceded by their line 
numbers. Normal usage is to list a file on a terminal or a 
printer. Complaint will be made if either fromFDname or 
toFDname specify a file that does not exist, or a device 
that is either not available or is the wrong type (is output 
device, or input device, respectively) . 

Default values for parameters that are omitted when the 
command is used are: 

fromFDname current file 

toFDname sink (initially terminal) 

If fromFDname is omitted or follows toFDname , either "ON" or 
a comma must precede toFDname . 

Effect: For the specified line number range (if any) , lines are read 
sequentially from fromFDname until an EOF condition is read. 
For each line, the line number is converted to 12 characters 
BCD. This is put on the front of the line, and this 
extended line is written (according to the modifiers given 
in the command) on to toFDname . 

T^xamples: $LIST 

$LIST PIT3STANZA7,P,TR1 

$LIST FILE (20,32) 

$LIST OFILY(n7,117) 

$LIST ON LISTFILE 

JLIST AFD *SINK* 
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COMMAND DESCRIPTION 

Name: LOAD 

Purpose: To load a program but not to start execution of it, so that 
parts of it may be altered (if necessary) before starting. 

Description: This command is identical to $fiON (q.v.) except that at the 
point where execution of the program would begin, control is 
returned to the user in command mode. The program can then 
be displayed and altered, and finally execution begun with 
the $START command. 
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COHMAND DESCaiPTION 



Name: 
Purpose: 

Prototype: 

where- 



Osage: 



NUMBER 

Start automatic numbering of input lines from source to the 
active file. 

$NOMBER {[startingnumber ] [,] [increment]} 
{CONTINUE } 

startingnumber is the number the automatic line numbering 

is to start with. 

increment is the number that is to be added to a line 
number to get the next one. 

This command starts automatic generation of line numbers- 
This is so data cards without numbers can be read into a 
file, and so new programs can be entered from consoles more 
easily. 

Default cases for parameters: 



startingnumber 1 
increment 1 



Examples; 



If CONTINUE is specified, numbering resumes from where it 
left off at the last UNNUilBER command. 

Both starting number and increment can take the usual three 
forms of a line number 

linenumber 

LAST 

LAST±linenumber 

In the last two cases, the value of LAST is the line number 
of the last line in the current active file. If the file is 
empty, the value of LAST is zero. 

$NUHBER 

SNDMBEE 10,10 

JNUMBER ,.1 

SNUMBEE CONTINUE 

$NUa 1 . 1 
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COMMAND DESCfilPTION 



Name: 
Purpose: 
Prototype: 
where 
Osage: 



Effect: 

Examples: 

Note: 



PASSWORD 

Allow a library file to be changed. 

SPASSMORD [IS] password 

password is the required password. 

This command sets a write-allow switch for library files. 
When the current file is changed, this switch is reset in 
order to protect the user from inadvertent modification of 
succeeding files. If the password given was correct, the 
response "O.K." is given. If the password was wrong, a 
negative response is given. 

Write-allow switch is set for library files. 

None, obviously. 

This is not the user-password. See sections describing 
JSIGNON and $SET for description of that facility. 



120 



MTS-230/EES-0 



12-1-67 



COHMANO DESCfilFTION 



Name: 

Purpose: 

Prototype: 



RESTART 

To restart a program after an interrupt. 

r T 

^RESTART |[AT] [ {RF=HHHHj ] •[ HHHH ]| [limit keyword pars] 
I {RF=GRx } I 

L -I 



Effect; 



The address to which control is to be given is determined 
in the following manner: 

1. If no parameters are given the program is restarted 
with the PSH typed out at the time of the last 
interrupt. 

2. If parameters are given the restart address is found 
by adding tiie relocation factor (default zero unless 
changed by a iSET command) to the displacement 
provided. Tne relocation factor must be given either 
as a free-form hexadecimal number or GRx in which 
case the contents of the specified general register 
is used. The displacement value must be given in 
free-form hexadecimal format. 

Limit keyword parameters are described in the section on 
Limits Spacif ication, section MTS-225. 



The progra 
described a 
and displac 
is greater 
use of an 
condition 
that is, th 
is taken as 



m is restarted a 
bove. Complaint is 
ement are not legal 
than the maximum 
eight digit dis 
code or program m 
e sum of the reloca 
the entire right n 



t the address determined as 
made if the relocation factor 
or if the relocation factor 
core address. By appropriate 

placement, one can set the 

ask when restarting a program; 

tion factor and displacement 

and half of the PSW. 



Examples; 



$RESTART 

$BES AT RF=GR15 
SRESTART AT 20A58 
SRES RF=20800 2b8 
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$BES RF=20800 28000258 

(In the last example the program is restarted at 20A58 wit] 
the condition code set to 2, the fixed point OTerfloi 
interruption enabled, and the other program mask interrupts 
disabled.) 
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COMMAND DESCfilPTION 

Name: RON 

Purpose: To load and initiate execution of a user's program 

Prototype: 

r {mapFDname} i r 

SRUN |[objectFDname] [{NOMA? } ]||; [logicalI/Ounit=aFDname ]... 

L J L 

1 

[limit keyword parameters] [ PAB=parameters] | 

where obiectFDname is the name of the file or device where 

the object cards are to be found. 

mapFDna me is the name of the file or device on which 

the loader will write the map. If MOMAP 
is specified, printing of the map will be 
suppressed; error comments (if any) will 
be printed on the user's terminal. 

lo q ic all Ounit the name of a "logical I/O unit" the 

object program has access to. Specifiable 
names are: 

SCARDS 
SPRINT 
SERCOH 
SPONCH 
numbers to 9 

aFDna me The actual file or device on which or from 

Which the data requested through the loqi- 
callOunit is to go or come. 

limit keywo rd parameters 

These are time, cards, and page limits. 
They are described in the section Limits 
Specification, section MTS-225. 

parameters Parameters to be passed to the program 

executed. Everything from the first char- 
acter after the "=" to the end of the 
command is passed as parameters. 
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Osage: 



The RUN command directs that an object deck is to be loaded 
and then run. Certain parameters must be specified for 
loading and certain parameters for execution; these are 
separated in the command by the semi-colon: loading paramet- 
ers to the left, execution parameters to the right. The 
semi-colon may have one or more blanks before and/or after 
it, but they are not necessary. 

The loading parameters specify the input and output 
devices for the loader. The execution parameters make the 
connection between the logical 10 units used by the user in 
his program and the physical devices or files to be used for 
them in this run. 

Default specifications, when parameters are not supplied, 
are: 

objectFDname source file or device 

mapFDname NOHAP 

SCaSDS source 



SPBINT 



sink 



SERCOM 
SPUNCH 

to 9 



terminal (master sink) 

none (if terminal usage) 
♦PUNCH* (if batch) 

none 



LIBRARY FACILITY 

If, after loading all that the RON command has specified, 
there are still unresolved external symbol references, 
loading is continued from the system library, which is the 
file named ♦LIBRARY. This file is set up with the appropri- 
ate loader control cards so that only those pieces necessary 
are loaded. If there are still unresolved external symbol 
references after loading from this file, it is a fatal 
loading error. 



Effect; 



The parameters a 
specified exist an 
not, an error comm 
referring to the 
such a way that th 
to it either th 
name (if terminal 
batch usage) . T 
program into a reg 
loading errors, co 



re inspected to make sure that the files 
d that the devices specified are free. If 
ent is produced and the logical I/O unit 
unavailable file or device is set up in 
e first time the program being run refers 
e user is given a chance to respecify the 
usage) or the execution is terminated (if 
he loader is called to load the object 
ion in core. If there were no fatal 
ntrol is transferred to the entry point of 
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Examples: 



the program by calling it as a subroutine via GE15 with 
return in GB14, parameter specification in GR1 (see below) , 
and save area location in GH13 (standard OS CALL). The 
comment "EXECUTION BEGINS" is printed just before control is 
transferred. If the program terminates by restoring the 
registers and returning via GR14 (OS standard), the comment 
"EXECUTION TE8MINATED" is printed and the command is then 
terminated by releasing all storage, files, and devices 
used. If execution is terminated for any other reason (for 
example the program calls ERROR) the storage, files, and 
devices are not released until the next $RUN or $LOAD 
command. This enables the terminal user to user to use 
SDISPLAY, SALTER, and JRESTART to debug the program- An 
exception to this rule is if the first or only name in the 
object FDname concatenation is a library 
files, and devices are always released 
execution. If the program gets a program 
comment: 



file, storage, 
at the end of 
interrupt, the 



PROGRAM INTERRUPT. PSH=XXXXXXXX XXXXXXXX 

is printed, where the X's are the program old PSW that was 
stored because of the interrupt. 

PARAMETE R S PECIFIC ATION 

The parameter (set up by the "PAR=" keyword 
specification) is passed as follows. Register 1 contains 
the location of a full-word adcon. This adcon is the 
location of a half-word count (halfword aligned) which is 
immediately followed by an EBCDIC character region (of the 
byte-length specified in the count) which contains the 
parameters. The left-most bit of the adcon will be 1. 
(This is standard OS setup.) 

$RUN 

SRUN -FYLE4 *SINK* 

$RUN *FOHTRAN 

$RUN *AS!I1BLR NOMAP; SCARDS=SFILE SPRINT=LISTING 
SPUNCH=SFILE 
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COMMAND DESCHIPTION 



Name: 
Purpose: 
Prototype: 
where: 



SET 

Set various global switches and quantities. 

$SET kywd=guan 

kjwd may be CASE qua n may be OC or LC. (LC is normal) 

If OC is in effect, all data lines read 
by the MTS monitor (See HTS-220 and 
MIS-241) will have lower case letters 
converted to upper case. Useful for 
terminals like 2741 and 1050 which have 
both cases, to avoid having to use the 
shift key so much. 

RP guan is a hexadecimal number or GBx 
where x is an integer between and 15. 
This sets a global relocation factor 
quantity which is used in DISPLAZ and 
ALTEfi commands. If GRx is specified 
the relocation factor is set to the 
contents of the specified general reg- 
ister, (value is zero initially) 

IC quan may be ON or OFF (is ON 
initially) . If IC is on implicit con- 
catenation is active as described in 
MTS-210. If IC is off no check is made 
for "SCONTINOE WITH" lines and they are 
treated as any other lines. 

PW qu an is any sequence of zero to six 
characters none of which are blank. If 
at least one character is given the 
character string becomes the password 
for the current user and must be given 
correctly before someone is allowed to 
signon with his user id. If zero 
characters are given the password is no 
longer required. See description of 
JSIGNON for how to specify the password 
when signing on. 

ERROBDUMP quan may be ON or OFF (is OFF 
initially) . If errordump is on and an 
execution in batch mode terminates 
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abnormally a dump is given. This has 
no effect in terminal usage. 

LNS quan is one character specifying the 
Line Number Separator (is a comma 
initially) . The LNS is that character 
which, if it terminates the line number 
at the beginning of an input line, is 
not considered as part of the line but 
only as a separator. Hence a line 
commencing with numeric information may 
be easily entered. E.g., a line begin- 
ning: 174,10LINE = 2 

LFE quan may be ON or OFF (is ON 
initially). If ON, storage occupied by 
library files during a BON is always 
released when they return to the sys- 
tem, no matter what the reason. If 
OFF, library files are treated the same 
as any other file in this respect. 
(See also $RUN description) 



Examples: $SET CASE=UC 
$SET RF=2B800 
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COMMAND DESCRIPTION 



Name: 

Purpose: 

Prototype; 

Osage: 

Effect: 

T5xample: 
Note : 



SIGNOFF 

Notify the system of the user's departure 

$SIGNOFF 

Obvious 

All devices attached (and storage acquired) are released, 
all files are closed, and the system quiescently awaits the 
arrival of the next user on that terminal. 

fSIGNOFF 

If the abbreviation $SIG is used, its meaning is taken in 
context: if no one is signed on, $SIG means $SIGNON; if 
someone is signed on, $SIG means JSIGNOFF. 
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COMMAND DESCRIPTION 



Name: 
Purpose : 
Prototype: 
where 



Usage: 



Effect: 



Example : 
Note: 



SIGNON 

Identify the user to the system 

$SIGNON id [PW=cccc] [limit Jteyword parameters] 

id is the one to four character long user identification. 

cccc is the password for id, if one is required. 

limit ke ywor d paramete rs specify limits on time, pages, and 
cards. They are described in the section Limit Specifi- 
cation, section MTS-225. 

This must be the first command given. Complaint will be 
made if id is omitted. If more than four characters are 
given for id, only the first four will be used. See 
description of JSET command for setting of user passwords. 



Four characters ar 
accessing files, 
given as the I.D., 
adding .4. , $i, or 
If the I.D. given 
or an incorrect 
chance to enter th 
thrown off (batch 

$SIGNON Y025 



e stored to use as the user prefix for 
If only one, two, or three characters are 
this is padded out to four characters by 
i, respectively, to the characters given, 
has a password and either none was given, 
one was given the user will be given a 

e correct one (terminal usage) or will be 

usage) . 



If the abbreviation $SIG is used, its meaning is taken in 
context: if no one is signed on, $SIG means *SIGNON; if 
someone is signed on, $SIG means $SIGNOFP. 
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Name: SINK 

Purpose: Changes the sink for "normal output". 

{FDname 1 
V 
PREVIOOSJ 

where- FDname is the file or device name of the new sink. 

Osage: Appearance of this command in the source stream causes the 

next output directed to the sink device to be put on file or 
device specified. The terminal the user is at always 
remains connected as the master sink on which error messages 
that require user action are given. 

A one level pushdown of sink devices is maintained. If 
"PBEVIoaS" is given instead of a file or device name, the 
previous sink device is restored. 

This command is not allowed in batch operation. 

Effect: File or device specified replaces sink. Msink remains 
unchanged. 

Examples: $SINK PTR1 

$SINK PRINTSYSOOT 

$SINK PREVIOUS 
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COMHAND DESCfilPTION 



Name: 
Purpose: 

Prototype: 

where- 
Osage: 



Effect: 



Examples: 



SOURCE 

Changes the source for command and data lines. 

[FDname 1 
PEEVIOUSj 
FDname is the file or device name of the new source. 



$SOORCE 






Appearance of this command in the source stream causes the 
next input line to be taken from the file or device 
specified. The terminal the user is at always remains 
connected as the master source from which attention (or 
similar) interrupts occur and on which error messages that 
require user action are given. 

A one level pushdown of source devices is maintained. If 
"PBEVIODS" is given instead of a file or device name, the 
previous source device is restored. 

This command is not allowed in batch operation. 



File or device specified replaces source, 
unchanged. 

$SOURCE RDR1 

JSODRCE *D0J03 

SSOORCE PREVIOUS 



Msource remains 
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COMMAND DESCaiPTION 

Name: START 

Purpose: To start execution of a program after loading it (via 
$10AD) . 

Description: This command is identical to ^RESTART, which see. 
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COMMAND DESCSIPTION 

Name: ONNUMBER 

Purpose: Turn off automatic numbering of input lines. 

Prototype: SaNNUMBEH 

■Jsage: This command is used when it is desired to suspend the 

automatic numbering of input lines that was turned on by use 
of the SNUMBER command. 

Examples: $ONNOMBER 
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DATA LINES 
LINE NDHBEES 

All lines read by the MTS monitor that are not commands must start with 
a line number (except when the automatic numbering mode is on) . in its 
full form, this line number contains a sign, five digits, a decimal point, 
and three digits. The sign need not be specified; if missing it is assumed 
positive. The decimal point and following fractional digits need not be 
specified; if missing, the number is assumed an integer. Leading zeros 
need not be specified in the integer part; trailing zeros need not be 
specified in the fraction part. Complaint will be made if more than five 
digits precede the decimal point or more than three digits follow it. 

Examples of line numbers are: 

5 5.1 5.13 5.137 3^:505.137 -32505.137 

The first character following the line number is the first character of 
the line. The end of the line number xs determined as follows: 

1. An alphabetic character terminates the number. 

2. The second occurrence of ^ terminates the number (first occurrence 
is the decimal point) 

3. A + or - which is not the first character terminates the number^ 

4. A blank terminates the line number. 

5. Any other special character terminates the line number. 

If the character which terminates the line number is a Line Number 
Separator character (usually a comma) , tiien this character is considered 
only a separator and is not taken as eitner part of the line number or as 
part of the line. For example, to put the three characters "123" in as 
line one of a file, 

1,123 

would be typed. (See the $SET command for changing this character.) 

Two other forms of line numbers are permitted. They are 

LAST 

LA ST±linen umber 
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The value of LAST is the line number of the last line in the current active 

file or device. Note that LAST-1 does not necessarily specify the line 

number of the next-to-last line; it is merely a line number 1 less than 
that of the last line. 
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USER P BOGBAMS 

This general section gives rules tor writing programs so they can be run 
under MTS. Section 251 lists general constraints, section 252 describes 
how parameters and modifiers may be passed to the program, section 253 
contains the subroutine descriptions for all of the subroutines available 
to the user's program, and section 255 contains description of the macro 
library available for the assembler. 
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OSEE PROGRAM CONSTRAINTS 



Programs run under HTS are subject to the rules and constraints listed 
below: 

1. The program runs in problem state. 

2. Storage protection (both store and fetch protect) is on, with each 
user's program having a difterent key. 

3. Programs are started up with an OS CALL: parameter list in location 
GE1, save area location in GR13, return address in GR14, entry point 
location in GR15. 

H. Programs are expected to start by saving registers in the save area, 
and when they wish to return, they are expected to restore all 
registers and then branch to where GE14 points. Alternatively, the 
subroutines SYSTEM and ERROR are provided as means of exits. 

5. All I/O shall be done by calling on subroutines provided. 

6. No SVC instructions should be used. 
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I/O EODTINES - PABAHETEH DESCRIPTION 



All the I/O routines have the same types of parameters, and in the same 
order. The exact calling sequences are given in later sections. The 
calling sequence is designed in such a way that these routines may be 
called from either assembly language or FORTfiAN programs. The parameter 
descriptions, being common, are given here: 



1. REGION 



location of the core region to or from which data is to 
be transmitted. 



2. COUNT 



location of a half word integer which is the number of 
bytes to be transmitted. 



by two bits; 
ON bit or 
modifier is 



MODIFIERS location of a full word of switches used to modify 
action of the subroutine. Each switch is represented 
an ON bit and an OFF bit. If either the 
the OFF bit, but not both, is set, the 
or is not used, respectively. If neither 
or both of the bits are set, but the given modifier was 
applied to the FDname (See MTS-210) , then what was 
specified by the FDname is used. If neither the 
subroutine call nor the FDname specifies which to use, 
a default specification is used. The modifiers and 
their default specifications are: 



Bit number 



Name 



Default 



31 
30 



OFF 



ON 



indexed 



OFF 



29 
28 



OFF 



ON 



binary 



OFF 



27 
26 



OFF 



ON 



case conversion OFF 



25 OFF carriage control ON for 

ana printers and 
24 ON stacker select terminals, OFF 

for all else 
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23 OFF 

prefix print OFF 
22 ON 



21 OFF peel 

or OFF 

20 ON return line nr 



19 OFF 

machine OFF 

18 ON carriage control 



17 OFF 

16 ON 

15 OFF 

14 ON 



trim ON 



special OFF 



Explanation o± the modifiers is later in this section. 

'*• L INE NOMBER location of a ruli word which contains the line number 

transmitted to or returned from the subroutine. The 
line number is stored internally as a full word integer 
whose value is the line number times 1000. 

5- O NIT NUM BEB location of a full word which contains either the 

logical unit number as a full-word integer or the 

location of a FDUB (as returned by GETFD) as a 
full-word. 
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EXPLANATION OF MODIFIES BITS 



Bits Name 



29} 
28} 


EBCD 
BINARY 


27} 
26} 


LC 
UC 


25} 

24} 


CC 
SS 



31} SEQUENTIAL Indexed and Sequential are opposites. 

30} INDEXED Indexed means the user is specifying the line number; 

i.e., he says "put (or get) this line at (from) this 
place". Sequential means that the user wants to get 
(or put) the next line. 

Normal mode is BCD. The binary modifier is 

used to read or punch binary cards. It has nothing to 

do with binary tape. 

Normally characters are transmitted 

unchanged. If this modifier is on, lower case lettets 

are changed to upper case letters. 

Controls carriage control or stacker select 
(which is which depends on the device) Normal carriage 
control is "logical carriage control". Legal carriage 
controls are: 

blank single space 
triple space 

double space 

1 start new page 

9 single space and suppress 
overflow 

If stacker select for punch is specified, first charac- 
ter is taken as control: 

for stacker 1 

1 2 

2 3 

If first character is a legal control it is so used, 
and characters 2 and on are punched in column 1 and on; 
if not legal, the card is punched as is (character 1 
and on into column 1 and on) and stacked in stacker 2. 

For control functions for tapes, see Tape Oser's Guide 
(MTS-160) . 

23} PREFIX If on, for both input and output , the current 
22} line number is converted to external form and printed 

as a prefix on the appropriate input or output line. 
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21} PEEL input If on, a line number is "peeled" off 

20} the front of the line. The number is converted to 

internal form and returned; the rest of the line is 

returned as the input line. 

output If on, forces the line number in the sequential 
case to be returned to the spot designated in the 
parameter list. (not normally the case) . 

19} 14 CC If on, then machine carriage control is used. 

18} In this case, for printers (and simulated for J 

terminals) , the first byte of the line is used as the I 
command in the CCM used for output, if legal, and the 
first byte is blanked out. If not legal, the entire 
line is printed single spaced. For all other devices j 
and for files, this modifier is ignored. » 

17} TFIM Normally TRIM is on. 

16} This means that if a line has any trailing blanks, all 

but one are deleted. 

15} SPECIAL This modifier is reserved for device 

14J dependent uses. Its meaning depends on the particular 

device type it is used with. 
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SUBROOTINE DESCRIPTIONS 



Thxs section lists those subroutines available to the user. Most of 
them are m the system library (file *LIBfiABY) , which is automatically 

fn>n fr™,." ^ l^J''°^''^'' ^^ ''''° "'■'' ^^® ^^^^ Command (and also when the 
LOAD, LINK, and XCTL subroutines are called) . 

In addition to those described in this section, all of the subroutines 
described in "IBM SYSTEM/360 OPERATING SYSTEM: FORTRAN IV Library 
Subprograms",form C28-6595, are in the system library. 

uon^^onf ^=f®°tific Subroutine Package (SSP) , Version II, described in form 
H20-0205, IS in the file *SSP. If usage of any of the subroutines in SSP 
occurs, this file should be concatenated onto the object file(s) loaded 
when the program is run, e.g: 

SEON OBJECT+*SSP *SINK*; 5=*S0UfiCE* 6=*SINK* 
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MTS System and Library External Symbols 



Following are the lists of all available external symbols. The 
corresponding subroutine descriptions are in this section {MTS-253) and IBM 
Publications: System/360 Scientific Subroutine Package (350A-Cia-03X) Ver- 
sion II, Programmer's Manual (H20-0205) and System/360 Operating System: 
FORTRAN IV Library Subprograms (C28-6596) . See the writeup on *SSP 
(MTS-280/62t475) for details on referring to SSP entry points. 



Pre-Defined External Symbols 



ERROR LCSYMBOL READ 
SPDNCH SYSTEM WRITE 



SCARDS 



SDUilP 



SERCOM 



SPRINT 



Low-Core External Symbols 

CANREPLY EMPTY ERR 
GETFD GETSPACE GDSEHID 
MAKEFILE OUT ODTPOT 
SETPFX ONLOAD XCTL 



ERECOM FREEFD 
IN INPUT 
PGNTTRP PRINT 



FREESPAC GDINFO 
LINK LOAD 
PUNCH SETIOERfi 



Library Entry Points and Module Names 



#FPCON 

ALHADR 

AMIN1 

CCOS 

CDMPY# 

CMPY# 

DARCOS 

DEBDG# 

DLGAMA 

DSINH 

D7090P 

FCDXI# 

FCVZO 

FPADSt 

GAMMA 

IHCCLABS 

IHCCSAS 

IHCFCDXI 

IHCFDXPD 

IHCFHAXR 

IHCLATN2 

IHCLSCNH 

IHCSERF 



STESTITP 

ALMADW 

AND 

CDABS 

CDSIN 

COMPL 

DARSIN 

DEEF 

DLOG 

DSQRT 

ERF 

FCVAO 

FCXPI* 

FPC 

GLAP 

IHCCLAS 

IHCCSEXP 

IHCFCOMH 

IHCFDXPI 

IHCFOVER 

IHCLESF 

IHCLSQRT 

IHCSEXP 



ACCEPT 

ALOG 

ARCOS 

CDCOS 

CDSQRT 

COS 

DATAN 

DERFC 

DLOG10 

DTAN 

ERFC 

FCVCO 

FDIOCS* 

FRDNL# 

IBCOM* 

IHCCLEXP 

IHCCSLOG 

IHCFCOMM 

IHCFEXIT 

IHCFRXPI 

IHCLEXP 

IHCLTANH 

IHCSGAMA 



ADCONt 

ALOG10 

ARSIN 

CDDVDt 

CDVD# 

COSH 

DATAN2 

DEXP 

DMAX1 

DTANH 

EXIT 

FCVEO 

FDXPD# 

FRXPI# 

IBERH# 

IHCCLLOG 

IHCCSSCN 

IHCFCVTH 

IHCFIOSH 

IHCFRXPa 

IHCLGAMA 

IHCLTNCT 

IHCSLOG 



ALGAMA 

AMAXO 

ATAN 

CDEXP 

CEXP 

COTAN 

DCOS 

DGAMMA 

DMIN1 

DUMP 

EXP 

FCVIO 

FDXPI# 

FHXPR* 

IBEXIT# 

IHCCLSCN 

IHCCSSQT 

IHCFCXPI 

IHCFIXPI 

IHCFSLIT 

IHCLLOG 

IHCNAM£L 

IHCSSCN 



ALHADGO 

AMAX1 

ATAN2 

CDLG10 

CLOG 

CSIN 

DCOSH 

DIOGS* 

DROPIOER 

DVCHK 

E7090 

FCVLO 

FIOCS# 

FSTOP# 

IBFERR* 

IHCCLSQT 

IHCDBUG 

IHCFDUMP 

IHCFMAXD 

IHCIBERH 

IHCLOGIC 

IHCSASCN 

IHCSSCNH 



ALMADP 

AMINO 

CABS 

CDLOG 

CLOG10 

CSQRT 

DCOTAN 

DISMOUNT 

DSIN 

D7090 

E7090P 

FCVTHB 

FIXPI# 

FMRNL# 

IBFINT* 

IHCCSABS 

IHCDIOSE 

IHCFDVCH 

IHCFMAXI 

IHCLASCN 

IHCLSCN 

IHCSATN2 

IHCSSQRT 
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IHCSTANH 


IHCSTNCT 


IHCDATBL 


lOHEEP 


lOaERR 


lOHETC 


lOHIN 


lOHLINK 


lOHOOT 


lOHSFSET 


IOH36 


lOPKG 


lOPMOD 


LAND 


LCLOSE 


LCOMPL 


LOPEN 


LOR 


LXOR 


MAXO 


MAX1 


MINO 


MINI 


MOUNT 


CHIT 


ONESATIM 


Ofi 


OVEBFL 


OHNCONVE 


PCCLOSE 


PCLOSE 


PCOPEN 


PDUHP 


PLOT 


PLOTP 


PL0T1 


PLOT 14 


PL0T2 


PL0T3 


PL0T4 


POPEN 


QCLOSE 


QCNTRL 


QDTAN 


QGET 


QGETOCB 


QGTUCB 


QOPEN 


QPUT 


QSAM 


QSAMP 


QTAN 


RCLOSE 


REWIND 


fiEtfIND# 


EOPEN 


SERCLOSE 


SEROPEN 


SETEOP 


SETERE 


SETFBVAfi 


SETIOHER 


SETLOG 


SHFTL 


SHFTR 


SIN 


SINH 


SLITE 


SLITET 


SPIE 


SQRT 


STPLT1 


STPLT2 


SYSC 


SYSL 


SYSP 


SYSR 


TAN 


TANH 


XOE 











SSP Entry Points and Module Names 



ABSNT 


ABSNT# 


ACFI 


ACFI* 


Aiil 


AHI* 


ALI 


ALI# 


AREAY 


ARRAY* 


ATSE 


ATSE* 


ATSG 


ATSG* 


ATSM 


ATSM# 


ADTO 


AUTO* 


AVCAL 


AVCAL* 


AVDAT 


AVDAT# 


BESI 


BESI* 


BESJ 


BESJ* 


BESK 


BESK* 


BESY 


BESY# 


BOUND 


BOUND* 


CADD 


CADD* 


CANOE 


CANOEt 


CCPY 


CCPY* 


CCUT 


CCUT* 


CEL1 


CEL1* 


CEL2 


CEL2# 


CHISQ 


CHISQ* 


CINI 


CINT* 


CNP 


CNP# 


CNPS 


CNPS* 


CONVT 


CONVT* 


COBBE 


COBBE* 


CROSS 


CBOSS# 


CS 


CS* 


CSP 


CSP* 


CSPS 


CSPS# 


CSRT 


CSRT* 


CSUM 


CSUM* 


CTAB 


CTAB* 


CTIE 


CTIE# 


DACFI 


DACFI* 


DAHI 


DAHI* 


DALI 


DALIt 


DATSE 


DATSE* 


DATSG 


DATSG* 


DATSM 


DATSM* 


DCE11 


DCELIi 


DCEL2 


DCEL2# 


DCLA 


DCLA* 


DCNP 


DCNP# 


DCNPS 


DCNPS* 


DCPY 


DCPY* 


DCSP 


DCSP* 


DCSPS 


DCSPS# 


DELI1 


DELI1* 


DELI2 


DELI2* 


DFMCG 


DF«CG# 


DFMFP 


DFMFP* 


DGELB 


DGELB* 


DGELG 


DGELG* 


DGELS 


DGELS# 


DHABM 


DHABM* 


DHZP 


DHEP* 


DHEPS 


DHEPS# 


DHPCG 


DHPCG* 


DHPCL 


DHPCL* 


DISCS 


DISCS* 


DJELF 


DJELF# 


DLAP 


DLAP* 


DLAPS 


DLAPS* 


DLBVP 


DLBVP* 


DLEP 


DLEP* 


DLEPS 


DLEPS* 


DLLSQ 


DLLSQ* 


DMATX 


DMATX# 


DMFGR 


DMFGE* 


DPECN 


DPECN* 


DPECS 


DPECS# 


DPEQD 


DPRQD* 


DQATE 


DQATB* 


DQA12 


DQA12# 


DQA16 


DQA16# 


DQA24 


DQA24* 


DQA32 


DQA32# 


DQA4 


DQA4# 


DQA8 


DQAB* 


DQG12 


DQG12# 


DQG16 


DQG16* 


DQG24 


DQG2a# 


DQG32 


DQG32# 


DQG4 


DQG4# 


DQG8 


DQG8# 


DQHFE 


DQHFfi* 


DQHFG 


DQHFG* 


DQHSE 


DQHSE* 


DQHSG 


DQHSG# 


DQH16 


DQH16# 


DQH24 


DQH2t»# 


DQH32 


DQH32# 


DQH48 


DQH48* 


DQH64 


DQH64# 


DQH8 


DQH8* 


DQL12 


DQL12# 


DQL16 


DQL16* 


DQL24 


DQL24* 


DQL32 


DQL32# 


DQL4 


DQL4# 


DQL8 


DQL8* 


DQSF 


DQSF* 


DQTFE 


DQTFE# 


DQTFG 


DQTFG* 


DBHAHM 


DBHAEM* 


DBKGS 


DRKGS# 


DBTMI 


DBTMI* 


DBTNI 


DBTNI* 


DETWI 


DBTHI* 


DTCNP 


DTCNP* 


DTCSP 


DTCSP* 


DTEAS 


DTEAS* 


DTEUL 


DTEOL* 


DTHEP 


DTHEP* 


DTLAP 


DTLAP* 


DTLEP 


DTLEP* 


EIGEN 


EIGEN* 


ELI1 


ELI1* 


ELI2 


ELI2# 


EXPI 


EXPI# 


EXSMO 


EXSMO* 


FMCG 


FMCG* 


FMFP 


FMFP* 


FOEIF 


FOBIF* 


FOBIT 


FOBIT* 


GAMMA 


GAMMA* 


GAUSS 



144 



MTS-253-0 



12-1-67 



GAUSS# 


GDATA 


GDATA* 


GELB 


GELB* 


GELG 


GELG* 


GELS 


GELS# 


GMADD 


GMADD* 


GMPBD 


GMPRD* 


GMSUB 


GMSOB# 


GMTEA 


GMTEA* 


GTPSD 


GTPBD* 


HARM 


HARM* 


HEP 


HEP# 


HEPS 


HEPS* 


HPCG 


HPCG* 


HPCL 


HPCL# 


JELF 


JELF* 


KRANK 


KRANK* 


LAP 


LAP* 


LAPS 


LAPS* 


LBVP 


LBVP* 


LEP 


LEP* 


LEPS 


LEPS# 


LLSQ 


LLSQ* 


LOAD 


LOAD* 


LOG 


LOC* 


MADD 


MADD* 


MATA 


MATA* 


MCPY 


MCPY* 


MEANQ 


MEANQ* 


MFGK 


MFGE* 


MFDN 


MFUN* 


MINV 


MINV* 


MOMEN 


HOHEN* 


MPSD 


MPBD* 


MSTR 


MSTR* 


MSUB 


MSaB# 


MTRA 


MTRA* 


MULTR 


MULTB* 


NBOOT 


NBOOT* 


OBDER 


OBDER* 


PADD 


PADD* 


PADDM 


PADDM* 


PCLA 


PCLA# 


PCLD 


PCLD* 


PDEE 


PDER* 


PDIV 


PDIV* 


PECN 


PECNt 


PECS 


PECS* 


PGCD 


PGCD* 


PILD 


PILD# 


PINT 


PINT* 


PMPY 


PMPY* 


PNORM 


PNOBM* 


POLRT 


POLRT* 


PQSD 


PQSD* 


PRQD 


PBQD* 


PSOB 


PSUB# 


PVAL 


PVAL* 


pvsaB 


PVSOB* 


QATR 


QATB* 


QA10 


QAIO* 


QA2 


QA2* 


QA3 


QA3* 


QA4 


QA4# 


QA5 


QA5* 


QA6 


QA6# 


QA7 


QA7* 


QA8 


QA8# 


QA9 


QA9* 


QG10 


QGIO* 


QG2 


QG2# 


QG3 


QG3* 


QGU 


QG4# 


QG5 


QG5* 


QG6 


QG6# 


QG7 


QG7* 


QG8 


QG8# 


QG9 


QG9# 


QHFE 


QHFE* 


QHFG 


QHFG* 


QHSS 


QHSE* 


QHSG 


QHSG* 


QH10 


QH10* 


QH2 


QH2# 


QH3 


QH3# 


QH4 


QH4* 


QH5 


QH5# 


QH6 


QH6* 


QH7 


QH7# 


QH8 


QH8* 


QH9 


QH9# 


QL10 


QX10# 


QL2 


QL2* 


QL3 


QL3# 


QLa 


QL4# 


QL5 


QL5# 


QL6 


QL6# 


QL7 


QL7* 


QL8 


QL8# 


QL9 


QL9* 


QSF 


QSF* 


QTEST 


QTEST* 


QTFE 


QTFE* 


QTFG 


QTFG* 


BADD 


BADD* 


BANDU 


SANDO# 


RANK 


BANK* 


SCPY 


BCPY* 


RCOT 


BCUT* 


EECP 


RECP* 


EHARM 


RHABM* 


BINT 


RINT* 


RKGS 


EKGS# 


RK1 


RK1* 


RK2 


fiK2# 


RSRT 


ESRT* 


ESOH 


RSOM* 


RTAB 


RTAB* 


BTIE 


BTIE* 


BTMI 


ETMI* 


RTNI 


ETNI* 


RTWI 


STWI* 


SADD 


SADD* 


SCLA 


SCLA* 


SCMA 


SCMA* 


SDIV 


SDIV* 


SICI 


SICI# 


SIMQ 


SIMQ* 


SMO 


SMO* 


SMPY 


SMPY* 


SEANK 


SEANK* 


SEMA 


SEMA* 


SSOB 


ssaB* 


SUBMX 


SDBMX* 


SOBST 


SUBST* 


TAB1 


TAB1# 


TAB2 


TAB2* 


TALLY 


TALLY* 


TCNP 


TCNP* 


ICSP 


TCSP* 


TEAS 


TEAS# 


TEUL 


TEOL* 


THE? 


THEP* 


TIE 


TIE* 


TLAP 


TLAP* 


TLEP 


TLEP* 


TPKD 


TPBD* 


TEACE 


TEACE# 


TTEST 


TTEST* 


TWOAV 


T»OAV# 


UTEST 


UTEST* 


VAEMX 


VAEMX* 


WTEST 


WTEST* 


XCPY 


XCPY* 
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SOBROUTINS DESCRIPTION 

Name: ATTNTRP 

Purpose: To set things up so control will be returned to the user on 
an attention interrupt (ATTN key on 2741, BREAK on teletype, 
etc.) . 

Calling Sequence: OS (I) R type 

Register 1J save area is not required. 

Entry: GRO should contain zero or the location to transfer 

control to if an attention interrupt occurs. 

GR1 contains the location of a 72 byte save region in 
which are stored pertinent information (see below)^ . 

Description: A call on this routine sets up an attention interrupt 
exit for one interrupt only. When an interrupt occurs and 
the exit is taken, xt is reset so that another call on this 
subroutine is necessary to intercept the next attention 
interrupt. 

When the attention interrupt exit is taken, the second 
four bytes of the save region contains the interrupt 
location, and the rest of it contains the general purpose 
registers in order through 15. The floating point 
registers remain as they were at the time of the interrupt. 
GR1 contains the location of the save region. 

If, on a call to this routine, the first byte of the 
region specified by GR1 is X'FF', then in addition to 
setting up the attention interrupt exit, the program is 
restarted at the location specified in the region (using 
that four bytes as the right-hand half of the PSH) , using 
the GPR's in the region. 
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SOBROOTINE DESCRIPTION 

Bitwise Logical Functions 
For Fortran IV Users 

AND,LAND,OR,L0R,X0R,LX0a,C011Pl,LC01IP,SHFTR,SHFTL 

These simple functions do the bitwise logical operations which are 
difficult to state in FORTRAN IV arithmetic formulas. If their names are 
prefixed with an "L", they are integer; otherwise they are declared real. 
The only exception to this rule is that SHFTR and SHFTL must be declared 
integer. 

Unless otherwise stated, the arguments of the functions may be either 
real or integer provided that they are full words, i.e., four bytes long. 

AND C = AND(A,B) 
LAND IC = LAND (lA, IB) 

The result has bits on only if the corresponding bits of the 
arguments are both on. 

OR C = OR (A,B) 
LOS IC = LOE(IA,IB) 

The result has bits on only if either argument or both has 
the corresponding bits on. 

XOR C = XOR(A,B) 
IXOR IC = LXOH(IA,IB) 

The result has bits on only if the corresponding bits of the 
two arguments are not the same. 

COMPL B = COMPL(A) 
LCOllPL IB = LC0!I1PL(IA) 

The result simply has bits of the argument all reversed. 

SHFTL IC = SHFTL (lA, IB) 
SHFTS IC = SHFTR (lA, IB) 
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Examples; 



As logical shift functions they are not equivalent to a 
division or a multiplication by a power of two. The first 
argument is shifted right or left the number of bits 
specified by the second integer argument. 



Zero out all bits or a full word. 

MOBD = XOB(HORD, WORD) 

Examine the second byte of a full word. 

DATA MASK/ZOOFFOOOO/ 
SCDBYT = AND (WOBD, MASK) 

Move the first byte of a fullword so that it becomes the 
fourth byte of the word. 

IMOBD = SHPTB(IH0BD,2a) 

Pack the four characters together. 

READ (5,4) (CHAB(I) ,1=1,4) 
4 FORMAT (4A1) 

DATA MASK/ZFFO 00000/ 

WORD = 0. 

DO 6 1=1,4 

WORD = OR{MOBD,SHPTB(CHAB(I) , (I-1)*8) 
6 CONTINUE 
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SOBROOTIME DESCRIPTION 

Name: Blocked Input/Output Routines 

The blocked input/output routines have the following entry 
points: 

QGETUCB, QOPEN, QCLOSE, QGET, QPOT, QCHTRL 

Purpose: These routines will read and write blocked records consist- 
ing of one or more fixed-length logical records. All 
input/output requests are made for logical records; the 
routine handles record blocking and deblocking automat- 
ically. These routines are intended for use with tape 
records although they are not restricted to tapes. Hore 
than one input/output file or device may be handled at one 
time. The type of processing done by these routines is 
similar to that done by the Queued Sequential Access Method 
(QSAH) within OS and for this reason are sometime's referred 
to as the MTS QSAM routines. They should not however, be 
confused with the OS routines of the same name because the 
MTS routines provide only a subset of the features of the OS 
routines. 

Several error messages can be generated. Each of these 
begins with the prefix: 

«««# QSAd ERROR: <FDname> 

which will be abbreviated as "•••" in what follows. 

The error messages whicn can be generated by each routine 
will be listed with that routine in the subroutine descrip- 
tions which follow: 
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BLOCKED I/O ROOTINjS: QGETUCB (QGTUCB) 



Name: 
Purpose: 

Calling sequence; 
Entry: 



QGETUCB (QGTOCB) 

To acquire a file or device which will be used by the 
blocked input/output routines and generate a table of 
control information for that file or device. This table is 
referred to as a tJCB (Unit Control Block) . 

OS (I) S type 

GR1 contains the location of a parameter list: 



Word 



Location of the name of the file or device 
which is to used by the blocked input/output 
routxnes, ending with a blank or comma. The 
name may not be longer than sixteen charac- 
ters- 



Word 



Return: 



Address of a word in which the pointer to the 
UCB will be placed. 



RC=0 Successful return. 
can now be used by 
routines. 



File or device was acquired and 
the other blocked input/output 



RC=4 File or device could not be acquired properly from 
MTS. The subroutine GETFD or GDINFO returned a 
non-zero return code. 



Messages: 
Description: 



••• COULD NOT BE ACQUIRED FROM MTS- 

A chain of all UCB • S acquired thus far is searched to see if 
this file or device has been set up before. If so, the UCB 
pointer is returned immediately. Otherwise, a UCB is built 
and added to the chain, a pointer to it is returned, GETFD 
and GDINFO are called for the file or device, and pertinent 
information is set up in the UCB. 
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BLOCKED I/O fiOUTINE: QOPEN 



Name: 
Purpose: 

Calling sequence; 
Entry: 



QOPEN 

To prepare a file or device which has been acquired by 
QGETDCB for blocked^ input or blocked output operations. 

OS (I) S type. 

GR1 contains the location of a parameter list: 

Word 1 : 



Word 



Word 3 : 



Word 



Address of a word containing a UCB pointer as 
returned by QGETOCB. 

Address of a full- word integer which indi- 
cates Whether information is to be read or 
written: 

1=Inlormation is to be written. 
2=Intormation is to be read. 

Address of the full-word integer maximum 
number of logical records per physical block. 

Address of the full-word integer length of 
each logical record (in bytes) . Legal values 
range from 2 through 256 bytes. 



Return; 



RC=0 



RC=4 



Successful return. File or device can now be read 
from via QGET (if the second parameter value is 2) or 
written via QPUT (if the second parameter value is 
1). 

The file or device is already open, or the second 
parameter is not a 1 or 2, or the maximum length of a 
physical record for tape was rejected by the tape 
device support routines (it probably was longer than 
32767 bytes) . 



Messages: 



Description: 



••• IS ALREADY OPEN. IT CAN'T B2 OPENED TWICE. 

••• READ/WRITE SPECIFICATION INCORRECT IN CALL TO OPEN. 

• •• 



MAXIMOM RECORD LENGTH REJECTED BY TAPE DSR. 



The parameters are cnecked for consistency. The information 
from the parameters is placed in the UCB. The largest 
possible physical recora lengtn is computed and a buffer of 
that length is acguirea. If the device is a tape, the tape 
device support routines are initialized to accept records up 
to the maximum length. 
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BLOCKED I/O ROUTINE: QGET 



Name: 
Purpose: 

Calling sequence; 
Entry: 



Return; 



QGET 

To acquire the next logical record from a file or device 
which has been opened as an input file or device via QOPEN. 

OS (I) S type. 

6R1 contains the location of a parameter list: 

Word 1 : Address of the area in which the next logical 
record will be stored. (input area) 

Word 2: Address of a word containing a UCB pointer as 
returned by QGETOCB. 

RC=0 Successful return. The next logical record has been 
placed in the input area. 

RC=U End-of-f ile . The input area is sprayed with the 
character having FF as its hexadecimal representa- 
tion. This corresponds to the 12-11-0-7-8-9 punched 
card code. 



ERROR 



Messages; 



Description; 



A message i 
if the fi 
via the sub 
tion has a 
device, if 
maximum si 
or an error 
next physic 



s printed an 
le or device 
routine QOPE 
Iready been 
a physical 
ze computed 

indication 
al record. 



d the subroutine EBBOB called 
has not been opened for Input 

N, if an end-of-f ile Indlca- 

returned once for this file or 
record Is longer than the 
from the parameters to QOPEN, 

was received while reading the 



••• USED IN GET ALTHOUGH NOT OPENED AS AN INPOT FILE* 

••• USED IN GET ALTHOUGH END-OF-FILE INDICATION GIVEN. 

••• INPUT RECORD IS LONGER THAN MAXIMUM SPECIFIED. 

••• RETURN CODE GREATER THAN 4 FROM READ IN GET. 



Physical records 
required. Each 
logical records of 
QOPEN. One logi 
QGET. The last lo 
actually be short 
which case it is p 
more logical rec 
character having F 
necessary indices 



are read from the file or device as 
physical record is broken into one or more 
the length specified in the call to 
cal record is returned upon each call upon 
gical record in a physical record may 
er than the length of a logical record, in 
added out with blanks. If there are no 
ords the input area is sprayed with the 
F as its hexadecimal representation. All 
are maintained in the UCB. 
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BLOCK I/O SOUTINE: QPOT 



Name: 
Purpose: 



QPOT 

To write the next logical record to a file or device which 
has been opened as an output file or device via QOPEN. 



Calling sequence: 
Entry: 



OS (I) S type 

GR1 contains the location of a parameter list: 
Word 1 : 



Word 2: 



Address of the area in which the next logical 
record is stored. (output area) 

Address of a word containing a OCB pointer as 
returned by QGETOCB. 



Return; 



RC=0 



ERROR 



Successful return. The next logical record has 
placed into the current physical record. 



been 



Messages; 



Description: 



A message is printed and the subroutine EBBOfi called 
if the file or device has not been opened for output 
via the subroutine QOPEN or if a non-zero return code 
was received from WBITE while writing out a physical 
record. 



••• OSED QPOT ALTHOUGH NOT OPENED AS AN OOTPOT FILE. 
• •• APPEARS TO BE FULL. (BOO FROM WBITE) 

Each logical record presented by a call upon QPOT is placed 
into a buffer. When the buffer becomes full, it is written 
out as one physical record. All buffers will contain the 
maximum number of logical records specified in the call to 
QOPEN except the last buffer which will be truncated if it 
is only partially full when QCLOSE is called. All necessary 
indices are maintained in the UCB. 
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BLOCKED I/O BOUTIME: QCLOSE 



Name: 



Purpose: 



QCLOSE 

To terminate blocked input or output operations on a file or 
device which has been opened via QOPEN. If the file or 
device was used for output and a partial buffer of logical 
records for it is present, it is written out as a part of 
the closing procedure. 



Calling sequence: 
Entry: 



OS (I) S type. 

GB1 contains tne location of a parameter list: 

Word 1 : Address of a word containing a UCB pointer as 
returned by QGETOCB for the file or device to 
be closed. The word should contain a zero if 
all the currently open files or devices are 
to be closed. 



Return: 

Messages: 

Description; 



Note: 



EC=0 All returns are successful, even though some error 
messages may have been printed. 

• •• APPEARS TO BE FULL. (fiOO FROM WRITE) 
••• FISHY RETURN FROM FREESPACE. 

If the file or device was used for output and a partial 
buffer of logical records for it is present, it is written 
out. All information in the UCB is reset to the normal 
state of an unopened file or device. The file or device is 
available for use and can be re-opened or positioned. 

No tape mark is written when an output file is closed. It 
is the user's responsibility to see that a tape mark is 
written on a tape before it is rewound to mark the end of 
the information written. The subroutine QCNTRL can be used 
for this purpose. 
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BLOCKED I/O HOailNE: QCNTSL 



Name: QCNTRL 

Purpose: To position or write tape marks on a tape which has been 
acquired for use by the blocked input/output routines. 

Calling sequence: OS (I) S type. 

Entry: GH1 contains the location of a parameter list: 

Word 1 : Location of the three byte logical carriage 
control used to perform the function 
required. See section MTS-160. 

Word 2: Address of a word which contains a OCB 
pointer as returned by QGETUCB. 

Return: RC=0 Successful return. Operation was accepted by the 

tape device support routines. 

BC=4 The file or device is currently open, is not a tape, 
was not successfully acquired by QGETUCB, or the 
logical carriage control was rejected by the tape 
device support routines. 

Messages: ••• CANNOT BE POSITIONED BECAUSE IT IS OPEN. 

• ••• CANNOT BE POSITIONED BECAUSE IT IS NOT A TAPE. 
••• DOES NOT HAVE A FDUB AND SO CAN'T BE POSITIONED. 

• •• ROO FROM "CARRIAGE CONTROL" TO WRITE. 



Subroutine Description (QCNTRL) 155 



MTS-253/23455-0 
12-1-67 



SUBROaTINE DESCaiPTION 

Name: CANKEPLY 

Purpose: Find out if the user is at a terminal or if this is a batch 
job. 

Calling sequence: OS (I) 



Exit: RC=0 yes (conversational) 
U no (batch) 
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SOBROOTIKE DESCKIPTION 

Name: DISMOUNT 

Purpose: Allow asers to dismount private volumes. 

Calling sequence: OS (I) S type 

Entry: GR1 contains the location of a pointer to the parameter 
list. The parameter list consists of a half word length of a 
character string immediately followed by that character 
string. The character string should be those characters 
which would immediately follow the "PaB=" if this subroutine 
were being run as a library file. See the description of 
the library file *DISMOUNI, MTS-280/24627, for details. 



Subroutine Description (*DIsaoaNI) 157 



MTS-253/25475-0 



12-1-67 



SUBROUTINE DESCRIPTION 

Name: EMPTY 

Purpose: Do the same thing as the command JEMPTY, that is, remove all 
the lines from a file without destroying it. 

Calling sequence: OS (I) E type 

Entry: GRO contains the location of a FDUB (such as 
GETFD returns) 

Exit: EC=0 O.K. 

=4 File does not exist. 

=8 Something wrong with the file. 
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SOBROOTINE DESCfilPTION 

Name: EREOR 

Purpose: Terminate execution with an error indication 

Calling sequence: None - just branch 

Effect: Returns control to MTS to terminate execution. The comment 
'•ERROR RETURN" is printed- In BATCH mode, a dump is 
automatically given, if JEEEOfiDUMP or JSET EERORDUMP=ON was 
specified. 
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SOBROOTINE DESCRIPTION 

Name: S70SO,D7090,E7090P,D7090P 

Purpose: To allow users to convert 7090 floating point internal 
representation to one of the two types of internal floating 
point representations available on the 360. 

Calling Sequence: OS (I) S type 

Entry: GE1 contains the location of a parameter list which consists 

of two adcons. The first adcon points to the area from 
which the input is to be taken (either twelve or six bytes 
in length depending on the entry used) and the second adcon 
points to the output region (either four or eight bytes 
depending on the entry used) . 

Description: D7090 and E7090 expect the input to be twelve bytes long 

the low order three bits of each byte are taken as one octal 
digit. The sign of the number is assumed to be the first 
bit of the first octal digit. D7090P and E7090P assume a 
six byte input area. The low-order six bits of each byte 
are taken as two octal digits. The first bit of the first 
octal digit is taken as the sign. D7090 and D7090P assume 
the output area is eight bytes long. E7090 and E7090P 

assume that the output area is four bytes long since the 

mantissa of single-word floating point numbers in the 360 
contains only 2H bits and the mantissa in a 7090 floating 
point number contains 27 bits, rounding (if any) is done for 
the E-type conversions. 

Exit: RC= conversion was successful 

RC= 4 parameter list was not full-word aligned 
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SUBEOUTINE DESCBIPTIOK 

Name: FCVTHB 

Purpose: To alter the disposition of blanks with respect to FOBTRAN 
formatted-input on numeric fields. 

Calling Sequence (in FORTRAN): CALL FCVTHB (ABG) 

If ARG is a full-word zero, all blanks are assumed to be 
zeros on numeric input (tnis is the normal FORTRAN mode) . 
If ARG is non-zero , all blanks are ignored . 
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SUBSOOTINE DESCRIPTION 

Name: FBEEFD 

Purpose: Free a file or device acquired with the GETFD subroutine. 

Calling sequence: OS (I) R type 

Entry: GRO contains FDOB location as returned by GETFD or 
GDISFO. 

Exit: RC=0 successtul return. 

=4 the FDUB wasn't or something else was fishy. 
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SUBROUTINE DESCRIPTION 

Name: FEEESPAC 

Purpose: To release storage that was obtained with GETSPACE 

Calling sequence: OS (I) S type 

Register 13 save area is not required. 

Entry: SRO = entire region allocated is released. 

^ is length of region to be released. If not 
a multiple of 8, next shortest multiple of 
8 is used. 

GR1 location of first byte of region. 

Exit: RC = ok 

4 (a) space was not initially allocated by 
GETSPACE and cannot be released. 

(b) region (LOG to LOC+LEN-1) specified 
is not completely within a region. 
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SOBHOailNE DESCfilPTION 



Name: 



GDINFO 



Purpose: Ohtain information about a file or device. 
Calling sequence: OS (I) R type 



Entry: either 



or 



Exit: 



RC=0 



Note; 



(a) GEO contains a FDOB location (such as 
GETFD returns) , and GR1 contains zero; 

(b) GEO and GR1 contain an 8 character 
logical I/O unit name , left- justified 
with trailing blanks. [See the descrip- 
tion of SROM for list of logical I/O unit 
names. ] 

ok. GR1 contains the location of a full word 
aligned region of information. (If a conca- 
tenation was specified in the original logical 
I/O unit setup or GETFD call, the information 
returned in this region applies to the cur- 
rently active member of the concatenation.) 
The region contains: 

WORD 1: FDOB pointer 

HOED 2: H character BCD type (Section 
MTS-210 has list of device types. 
For file the type returned is 
FILE, For a non-existent file 
the type is MONE.) 

Something wrong. If "(a) call", the FDOB 
pointer wasn't. If "(b) call", either the 
name given was not a legitimate logical I/O 
unit name or else there was no file or device 
assigned to that logical I/O unit name. 

The storage pointed to by GR1 was allocated by 
GETSPACE and the user may call FBEESPAC (with GRO = 
0) to release it when it is no longer needed. 



RC=4 
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SOBHOOTINE DESCfilPTION 



Name: GETFD 

Purpose: Obtain a file or device 

Calling sequence: OS (I) S type 

Entry: GRI contains the location of the first character of 
the FDname of what is wanted. The name must be 
terminated by a blank. The name does not have to 

be aligned. 

Exit: RC=0 successful return. GfiO contains 
the FDUB location. 

=8 device is busy 

=12 device is not operational 

Effect: If a device, the device is acquired. If a file, the file is 
not opened until the first usage. Thus this subroutine 
cannot tell if the tile exists or not. The caller can tell 
if the file exists by calling GDINFO. The name may be a 
concatenation of file or device names each followed by 
modifiers or a line number range as described in MTS-210. 
If the FDUB pointer returned is used in a call to READ or 
WRITE the the modifiers or line number ranges will be used 
and if a concatenation was specified, the usual sequencing 
through the concatenation will take place. 
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SOBROOTINE DESCHIPTION 

Name: GETSPACE 

Purpose: To obtain storage 

Calling sequence: OS (I) R type 

Register 13 save area is not required. 

Entry: GEO has switches 

Bit 31 = 1 Return not made until space available. 

Return always made with RC indicating whether 
space available. 

Bit 30 = 1 Storage obtained is associated with the current 
level of LINK so that it is release at the next 
return from a LINK or the next XCTL. 

Storage obtained is associated with highest 
level program so it is not release until 
execution is terminated. 

Bit 29 = 1 Attach storage obtained to system level. 
Other bits in GEO must be zero. 

GE1 has length desired. If not multiple of 8, next largest 
multiple will be used. 

Exit: GE1 has location of first byte of region obtained. 

EC = all ok; region returned. 

4 space not available. 
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SUBEOOTINE DESCHIPTION 

Name: GOSEEID 

Purpose: To obtain the current 4 character user id (from $SIGNON) 

Calling sequence: OS (I) R type 

register 13 save area is not required. 

Exit: GR1 contains U character i.d. 
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SOBROOTIME DESCRIPTION 



Name: lOPMOD 



Purpose: To allow the user to set the modifier bits and line numbers 
of the parameter lists used by the system supplied IOH360 
OPEN-CLOSE routines 

(ROPEN,HCLOSE,POPEN,PCLOSE,PCOPEN,PCCLOSE,10PEN, 
LCLOSE,SEROPEN,SERCLOSE) when such routines call 
READ, WRITE, SCARDS, SPRINT, SPONCH, or SERCOM. 

Calling sequence: OS (I) S type 

Entry: GR1 contains the location of a parameter list which consists 

of four adcons. The first adcon points to a full word which 
contains the new set of modifier bits for the logical I/O 
unit in question. The second adcon points to a full-word 
location containing either a logical unit number or a FDOB 
pointer. If the user wishes to set the modifiers for output 
to SPRINT, SPONCH, or SERCOM or input through SCARDS, then 
the second adcon should be zero and the third adcon should 
point to a four-byte region containing the characters SPRI, 
SPUN, SCAR, or SERC. The fourth adcon points to a full word 
containing an MTS line number. If this adcon is zero, then 
no special line number is assumed. 

Example: CALL lOPMOD, {NEWHIODS,0, SPSN,0) 



NEWMODS DC A (X' 2000') turn on machine carriage 

control for SPRINT 

SPRN DC C'SPBI' 
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SOBEOOTINE DESCRIPTION 

Name: LINK, XCTL, LOAD 

Purpose: To effect dynamic loading 

Calling sequence: OS (I) S type. LINK and XCTL can be called from a 

FOETBAN program. 

Entry: GR1 contains the location of a parameter list: 

Word 1 : Location ot the name of the file or device from 
which to LINK, XCTL, or LOAD. 

Word 2: If non-zero, location of initial ESD (external 
symbol definition) list which will be appended to 
the built-in initial ESD list. See the loader 
writeup for format of table. 

word 3 (LINK or XCTL) : Address of a parameter list to be 
passed in GBI to the program LINKed to or XCTLed 
to. 

Word 3 (LOAD only) : Address of a word of switches 

bit 29=1 force private storage 

30=1 use system level storage 

31=0 use "highest level" storage 

=1 use "current level" storage 

Other bits must be zero. 

Word 4 (LOAD only) : If non-zero, is location starting at 
which the loader is to put the ESD after loading. 

Return (LOAD only) : GBI 5 has the location of entry point of 

what was loaded. 

GBO contains the storage index number 
(SI#) used: 

to 7F private 
80 to FF system 
100 to 17F public 
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Functio n of L INK and XCTL 

Either entry point will load the program specified using the same "map" 
device as specified in the initial '*SON' command. The program loaded will 
be called in such a way that if it returns (to GB14) then all storage it 
occupies and all storage it has requested will be released and control will 
be passed to the next higher level program. The "next higher level 
program" is the program which called LINK or the program which LINKed to 
the program which called XCTL. 

If XCTL is called it will release all storage used by the calling 
program before loading the specified program. It will also set things up 
to return to the program that LINKed to the calling program if the program 
it loads returns. The parameter list for XCTL may be located in a section 
of storage that will be released. 

Storage allocation 

There are two different calls to tne GETSPACE routine that a program 
running under MTS can make to reguest a block of storage. The first type 
associates the storage obtained with the current level of LINK so that it 
is released at the next return or XCTL- The second type associates the 
storage with the highest level program so it is not released until 
execution is terminated. 
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SOBEOOTINE DESCRIPTION 

Name: LINPG 

Purpose: Solve linear programming problems 

Calling sequence: OS (I) S type 

CALL LINPG(A,Y,M,N,1!12,N2,SW) 

or its assembly language equivalent. 

Description Stated generally, the linear programming problem seeks an 
extreme value for a linear function subject to linear 
constraints. With a linear programming problem, by the 
nature of the mathematics involved, two related mathematical 
forms of stating the problem always appear. These two forms 
are customarily designated as the primal and dual forms of 
the problem. The problem can be stated mathematically in 
its most general form as 

Primal form 

(1) Minimize A(M,1)Y(1) + ... + A (M,N+1) Y (N-1) 

subject to the constraints 

(2) A(I,1)Y(1) + ... + A(I,N-1)Y(N-1) = A (I , N) 
1=1 , . . . , M2 

(3) A(I,1)Y(1) + ... + A(I,N-1)Y(N-1) < A(I,N) 
J=N2+1,. .. ,N-1 

(4) Y(J) > 
J=N2+1, ,N-1 

or 

Dual form 

(1) Minimize X(1)A(1,N) + ... + X (M-1) A (H-l ,N) 

subject to the constraints 

(2) X(1)A(1,J) + ... + X(M-1) A(M-1,J) = A(M,J) 
J=1,...,N2 

(3) X(1)A(1,J) + ... + X(M-1) A(M-1,J) < A(M,J) 
J=N2+1, ,N-1 

(4) X{I) > 

i=a2+i,. .. ,M-i 

where A (I, J) are real numbers. Note (2) above are equations 
while (3) are inequalities. 
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This statement of the linear programming problem is 
designated the most general form because any problem whose 
objactive is obtaining an extreme value for a linear function 
subject only to linear constraints can be put in this form. 
It is obvious that this can always be done by simply changing 
the signs of the linear functions and rearranging the rows 
and columns as required. The roles of primal and dual can 
always be interchanged in formulating the problem. The 
machine code requires that the problem be presented in what 
is designated as the primal form. In particular, this means 
that 

A) The first H2 constraints must be equations, where M2 
is between and M-l. 

B) The first N2 variables are free to assume either sign, 
where N2 is between and N-1, and the remaining 
(N-1-N2) variables must be positive. 

The situation with respect to the solvability of the 
linear programming problem, as well as the general relation- 
ship between the primal and dual problems, can be summarized 
in a general theorem. 



LINERE PEOGRAimiNG THEOfiEM 

With any given linear programming problem, 

1) there exists a finite value V and solution vectors 
(Y*) and (X*) such that 

V = min(A (M,1) Y*{1)+. ..+A(H,N-1) Y*(N-1)) 
= max(X*(1)A(1,N)+...+X*(M-1)A(M-1,N)) 



or 



2) the constraints for the primal problem are inconsis- 
tent, and the constraints for the dual problem are 
either inconsistent or the dual extreme function is 
unbounded. 



or 



3) the primal external function is unbounded, and the 
constraints for the dual problem are inconsistent. 

The machine code is complete in the sense that is provides 
the solution for a linear programming problem in the event of 
any of the three possibilities listed in the linear program- 
ming theorem. It should be stressed that this machine code 
does not make any non-degeneracy assumption or stipulate any 
conditions on the consistency of the constraints or the 



l'^2 
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finiteness of the extremal value. The novel algorithm 
employed in this machine code also has the following proper- 
ties: 

1) It does away with all augmentation for any reason, in 
particular "artificial variables" for "initial feasi- 
ble solutions". 

2) It does not resort to any perturbation technique or 
arbitrary cycling of "basis" to cope with the 
"degeneracy problem", but instead capitalizes on it by 
concentrating on a greatly restricted subset of rows 
and columns. 

3) It isolates and identifies inconsistent constraints in 
a simple and natural way. 

A general linear programming problem, it should be recog- 
nized, is completely specified by the array of numbers, 
hereafter called the augmented constraint matrix — 



r 




1 A (I, J) 


A(J,N) 


1 A(H,J) 





L 





I=1,...,M-1 
J=1, ,N-1 



and the four parameters: 1) H, the number of rows, which 
would be the number of constraints and one for the extremal 
form; 2) H2, the specification that the first M2 con- 
straints are equations; 3) N, the number of columns which 
would be the number of variables and one for the column of 
"stipulations" of the constraints; 4) N2, the specification 
that the first N2 variables can assume arbitrary signs. 



arguments 



Y 
H 



First element of the augmented floating point con- 
straint Matrix. This must be a long real packed array 
of maximum size 150 by 150- The array must be set up 
column by column, as in FORTRAN. 

First element of the long real solution vector. 

The integer number of rows in the matrix A. M is also 
one plus the number of constraints. Must be less than 
151. 
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References ; 



N The integer number of columns in the matrix A. N is 
also one plus the number of variables. Must be less 
than 151. 

H2 The first M2 constraints are equations. M2 is between 
and M-1 inclusive. 

N2 The first N2 variables are free to assume either sign. 
N2 is between and N-1 inclusive. The remaining 
(N-1-N2) variables must be positive or zero. 

SW Short floating point computation switch. 

CW SW =1.0, normal return, Y contains the solution, CT = 
the value of the extremal function (short floating 
point) . 

SW =2.0, the constraints of the problem are inconsis- 
tent, CT= the index of the inconsistent constraint 
(short floating point) . 

SW = 3.0, the extremal function is unbounded, CT = the 
index of the inconsistent constraint of the dual 
problem (short floating point) . 

Graves, Glenn W. "A Complete Constructive Algorithm 
for the General Mixed Linear Programming Problem 
That Does Not Require Augmentation or 
Perturbation" doctoral dissertation. University of 
Michigan, 1962 

Graves, Glenn W. "A Constructive Algorithm for the 
General Mixed Linear Programming Problem" 
(condensation of doctoral dissertation) Report 
ATR-6a(7040)-1, 30 June 1964, Aerospace Corpora- 
tion, El Segundo Technical operations. El Segundo, 
California. 
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SUBROOTIME DESCRIPTION 

Name: MOUNT 

Purpose: Allow users to mount private volumes. 

Calling sequence: OS (I) S type 

Entry: GR1 contains the location of a pointer to a parameter list. 
The parameter list consists of a halfword length of a 
character string immediately followed by that character 
string. The character string should be those characters 
which would immediately follow the "PftR=" if this subroutine 
were being run as a library file. See the description of 
the library file *MOUNT, MTS-280/44545, for details. 

Exit: EC = volume was mounted successfully 
= 4 volume was not mouhted. 
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SOBfiOUTINE DESCRIPTION 



Name: PGNTTEP 

Purpose: to set things up so control will be returned to the user on 
a program interrupt. 

Calling sequence: OS H type 

Register 13 savearea is not required 

Entry: GEO should contain zero or the location to transfer 
control to if a program interrupt occurs. 

GR1 contains the location of a 72 byte save region in 
which are stored pertinent information (see below) . 

Description: A call on this routine sets up a program interrupt exit 
for one interrupt only. When an interrupt occurs and the 
exit is taken, it is reset so that another call on this 
subroutine is necessary to intercept the next program 
interrupt. A call on this routine with GEO containing zero 
resets the exit. 

When the program interrupt exit is taken, the first 8 
bytes of the save region contains the PSW, and the rest of 
it contains the general purpose registers in order through 
15. The floating point registers remain as they were at the 
time of the interrupt. GR1 contains the location of the 
save region. 

If, on a call to this routine, the first byte of the 
region specified by GR1 is X'FF', then in addition to 
setting up the program interrupt exit, the program iis 
restarted as specified by the PSW in the region, using the 
GPE's in the region. If the exit routine returns (to the 
address in GR14) the normal program interrupt processing is 
invoked. 

The SPIE macro is also available and works exactly the 
same as in as/360. 
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SOBROOTINE DESCRIPTION 



Printer Plot Routine 



The printer plot routine has the following entry points: 
PLOT1,PLOT2,PLOT3,PLOT4,PLOT14,STPLT1,STPLT2,OMIT, SETLOG. 

Purpose: Produce plots in normal output stream. 

Calling sequence: Each entry point is called with an OS (I) S type 

sequence 

The standard approach to produce a plot is to call on 
PLOT1,PLOT2,PLOT3, and PL0T4 in that order- 



PL0T1 



P10T1 sets up the information required to construct the 
graph. The calling sequence is: 

CALL PL0T1, {NSCALE(I) ,NHL, NSBH, NVL,NSBV) 

NSCAIE(I) A full-word integer vector to supply information about 
scaling and the number of decimal places to be printed 
out. If NSCALE(1)=0, the values 0,3,0,3 are used for 
NSCALE(2) through NSCALE(5) respectively. 

NSCALE(2) If this = Y, numbers printed along the y axis are 10**Y 
times their true value. 

l!JSCALE(3) The number of decimal places printed for Y values. 

NSCALE(i») If this = y, numbers printed along x axis are 10**Y 
times their true values. 

NSC ALE (5) The number of decimal place printed for x values. 

NHL The full-word integer number of horizontal lines. This 

number must be 2 or greater. It is one larger than the 
corresponding NHL in the 7090 plot routine. 

(jSBH The full-word integer number of spaces between the 

horizontal lines. This number must be 1 or greater. 
It is one less than the corresponding NSBH in the 7090 
plot routine. 

Subroutine Description (Printer Plot Routine) 177 



MTS-253/47465-0 
12-1-67 



NVL The full-word integer number of vertical lines. This 

number must be 2 or greater. It is one larger than the 
corresponding NVL in the 7090 plot routine. 

NSBV The full-word integer number of spaces between the 

vertical lines. This number must be 1 or greater. It 
is one less than the corresponding NSBV in the 7090 
plot routine. 

Eeturn codes Normal return 

U Improper argument, PL0T1 considered to have been 
not entered. 



PL0T2 



PL0T2 prepares the grid and sets up the information 
required by PL0T3 to place a point correctly in the graph. 
The calling sequence is 

CALL PL0T2, (IMAGE,X]!!AX,XMIN, YMAX, YMIN) 

If PL0T1 has not been entered by the time PL0T2 is called, 
the following default configuration is used for PL0T1, to be 
called the standard grid: 

NSCALE(1)=0,NHL=6,NSBH=9,NVL=11,NSBV=9 If the SPEINT device 
is a teletype, NVL is set to 6. 

IMAGE the first byte of an area equal or greater to in length 

than (1ISBH*NHL-NSBH+NHL)* (NSBV*NVL-NSBV+NVL+8) +8 bytes. 
For the standard grid this is 5567 bytes. This region 
is used to hold the image of the graph. 

XMAX The largest x value of the points to be plotted. 

XMIN The smallest x value of the points to be plotted. 

YMAX The largest y value of the points to be plotted. 

YMIN The smallest y value of the points to be plotted 

The preceding tour arguments are either short or long 
floating point numbers. 

Eeturn codes Normal return 

8 XMAX<XMIN or YiaAX< YHIN. PL0T2 considered not to 
have been entered. 



PL0T3 



PLOTS places the plotting character in the graph for each 
point (X,Y) . The calling sequence: 
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CALL PL0T3, (BCD,X,y,NDATA,INT) 
BCD The plotting character to be used. 

X The first element of a floating point vector of 

X-values. 

Y The first element of a floating point vector of 

Y-values. 

NDATA The full-word integer number of points to be plotted. 

lUT The full-word integer number of bytes between the 

characteristics of numbers to be used as coordinates. 
For a short form vector this is 4. 

Beturn codes Normal return 

12 using log scale with negatve numbers (See SETLOG) . 

16 PL0T2 not yet entered. 



PLOTU 



PL0T4 prints the completed graph w»th values along the X 
and Y axes and a centered vertical label down the left side. 
The calling sequence is 

CALL PL0T4, (NCHAR,LABEL> 

NCHAE the full-word integer number of characters in the 

vertical label. If this is 0, no label will be 
printed. 

LABEL the location of the first character of the label. 

See OMIT for the possibility of deleting grid values 
and the last graph line. 

Return codes Normal return 

20 PL0T2 not yet entered. 



PL0T1U 



PL0T14 allows the user to combine successive calls on 
PL0T1,PL0T2,PL0T3, and PL0T4 into one call on PL0T14. The 
calling sequence is: 

CALL PL0T14, (NSCAL2 ,NHL, NSBH, MVL, NSBV, 

IMAGE, XaAX,XMIN,YMAX,YMIN, BCD, X,Y, 

NDATA, INT, NCHAB, LABEL) 
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STPLT1 



STPIT2 



SETIOG 



ARG 



See the descriptions of PL0T1,PL0T2,PLOT3, and PL0T4 for the 
return codes used. 



STPLT1 is called by tae user who wishes the PLOT routine 
to inspect his data and tnen make appropriate calls on PL0T1 
and PL0T2. The standard grid size is always used, but the 
scaling and decimal places to be printed is determined by 
STPLT1. The user will have to call on PL0T3 and PL0T4 to 
get a graph printed out. The calling sequence is: 

CALL STPLTI, (IMAGE,X, Y,NDATA, INT) 



STPLT2 does the work of of STPLT1 and in addition calls 
on PL0T3 and PL0T4 to obtain a graph. The calling sequence 
is: 

CALL STPLT2, (IMAGE, X, Y,NDATA, INT, BCD, NCHAB, LABEL) 

The arguments given to STPLT1 and STPLT2 are described under 
PL0T2, PLOTS, and PL0T4, as are the return codes used. 



SETLOG is called by the user to specify whether he wants 
a normal, semi-log, or log-log plot. The calling sequence 
is: 

CALL SETLOG, (ARG) 

a byte interpreted as follows: 
bit 7 y scale is normal 

1 y scale is logarithmic 
bit 6 X scale is normal 

1 X scale is logarithmic. 
The plotting mode is set initially to normal. 



Return code 



always 



OMIT 



ARG 



OHIT is called by the user to specify whether the last 
graph line, the vertical grid values, or the horizontal grid 
values will be printed. The calling sequence is: 

CALL OMIT, (AEG) 

a fall-word integer interpreted as follows: if ARG is 
positive the function designated by the appropriate bit 
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is turned off. To turn it back on, make ARG negative 
and call on OMIT again. 

bit 31 Horizontal grid values 
bit 30 vertical grid values 
bit 29 the last graph line 

Return code always 

If one wished to produce a long graph, this could be done by producing the 
graph in pieces, deleting the horizontal grid values and the last graph 
line (ARG = 5) for each piece except the last, starting the next graph 
segment where the last graph line would have been printed. When the last 
segment was to be printed, OMIT could be called with ABG = - 5 to restore 
the functions.. Initially, all three functions are turned on. 

logical Devices Needed: SPRINT 

when using a printer as the SPRINT device, one normally issues a skip to 
the next paga before calling on PL0T4 to start the plot at the top of a 
page. 
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SOBROOTINE DESCfilPTION 

Same: READ 

Purpose: Obtain input record from specified logical unit 

Calling sequence: OS (I) S type 

Entry: GRI contains location of a parameter list: 

Word 1: A (REGION) 

2: A (COUNT) 

3: A (MODIFIERS) 

4: A (LINE NUMBER) 

5: A (UNIT NUMBER) 

Exit: RC = Normal return 
= 4 EOF 

The parameters are described in section 252. 

Caller sets up Word 3 parameter and Word 5 parameter, and 
if indexed is specified. Word 4 parameter. 

Subroutine reads record from unit specified into region 
specified, puts count into place specified, and if sequen- 
tial, puts line number into place specified. 

Notes 1. This subroutine may be called from FORTRAN as well as 

assembly code. E.g., CALL READ (REG, LEN,0,LUNIT, 630) 
Note that LEN must INTEGER*2 

2. There is a macro of the same name in the system macro 
library for generating the calling sequence to this 
subroutine. See writeup in section 255. 

Default specifications for units: None 
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SOBEOOTINE DESCHIPTION 

?3ame: REWIND 

ourpose: "Rewind" a logical I/O unit in FOETfiAN. 

Calling sequence: (in a FORTRAN program) CALL REWIND (ARG) where ABG is a 

full word integer expression between and 9. 

Description: If the logical I/O unit specified by ARG is attached to a 
tape it is rewound. If it is attached to a file it is reset 
so that the next reference to it will read or write the line 
specified by the beginning line number given in the JBON 
command. In all other cases the call is ignored and a 
return code of 4 is given. 
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SOBROOTINE DESCfilPTION 

Same: REMIND* 

''urpose: Reset a magnetic tape or a file to read from the beginning. 

Calling sequence: OS (I) R type 

Entry: either (a) 6RQ contains a FDDB location (as GETPD returns) 

and GR1 contains zero. 

or (b) GRO and GR1 contain an 8 character logical I/O 

unit naffle, left justified with trailing blanks? 

[See the $RON command description for a list of 
logical I/O unit names. ] 

Exit: RC=0: Everything ok. 

RC=4: Unable to rewind the device specified by GRO and gri. 

Description: If GRO and GRI specify a tape it is rewound. If they 
specify a file it is reset so that if the next reference to 
this FDDB or logical I/O unit is sequential, it will read or 
write the line specified by the beginning line number given 
when the file was attached. For all other cases a return 
code of 4 is given. 

Note: If the logical I/O unit or FDOB specified by GRO and GRI is 

part of an explicit concatenation, this subroutine affects 
only the currently active member of the concatenation. 
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SUBROUTINE DESCfilPTION 

Name: SCAEDS 

Purpose: Read a "card" (input record) 

Calling sequence: OS (I) S type 

Entry: GE1 contains location of a parameter list: 

Word 1: A (REGION) 

2: A (COUNT) 

3: A (MODIFIERS) 

4: A (LINE NUMBER) 

Exit: RC = Normal return 

= 4 EOF 

The parameters are described in section 252. 

Caller sets up Word 3 parameter, and if i ndexed is 
specified. Word H parameter. 

Subroutine reads record into region specified, puts count 
into place specified, and if s equential , puts line number 
into place specified. 

Notes: 1. This subroutine may be called from FORTRAN as well as in 

assembly language. E.g., CALL SCARDS (REG,LEN,0 ,LNB,S30) 
Note that LEN must be INTEGER*2. 

2. There is a macro of the same name in the system macro 
library for generating the calling sequence to this 
subroutine. See the writeup in section 255. 

Default specification for unit Source. 
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SOBKOUTINE DESCBIPTION 

Name: SDDKP 

Purpose: Produce a dump of any or all of the following: 

(1) general registers 

(2) floating point registers 

(3) a specified region of core storage- 
Calling sequence: OS (I) S type 

Bntry: GB1 contains the location of a fullword aligned parameter 
list: 

Word 1: A (SWITCHES) 

2: A(00a:SUBB) 

3: A(WKAfiEA) 

[4: A(FIESTLOC) ] 

[5: A(IASTLOC) ] 

RC=0 normal return 
BC=4 Jaad parameters 

The parameter words must be aligned on consecutive 
fullword boundaries. The caller sets up words 1-3 for all 
calls on SDOMP; words 4 and 5 are also required if the 
switches indicate that a region of core storage is to be 
dumped. All parameters must be addresses within addressable 
core and the first three must be aligned as indicated below, 
otherwise return with HC=4 occurs. 

Parame ter Descripti on 

Word 1 is the address of a fullword aligned fullword of switches that 
govern the content and format of the dump produced. The switches are 
assigned as follows: 

Bit 24: on if a core region is to be dumped 

25: on if floating point registers are to be dumped 

26: on if general registers are to be dumped 
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27: on if long output records (130 characters) are to be formed; 
off if short output records (70 characters) are to be formed 

28: on if double spacing is desired; off if single spacing is 
desired 

29: on if EBCDIC conversion of the core region is desired 

30: on if MNEMONIC conversion of the core region is desired 

31: on if HEXADECIMAL conversion of the core region is desired 

The default case (all switciies off) produces a dump as though bits 
24,25,26, and 31 were on. Furthermore, if bit 30 (mnemonics) is on bit 31 
(hexadecimal) is implied. Note that bits 24,25, and 26 specify what is to 
be dumped, bits 27 and 28 specify the page format, and bits 29,30, and 31 
specify the interpretation (s) to be placed on the region of core specified. 
Bits 29 through 31 have significance only if bit 24 is on. 

Word 2 must give the half-word aligned address of a subroutine (e.g., 
SPRINT) that causes the printing, punching, etc. of ouput line images 
formed by SDDMP 

Word 3 is the address of a doublewo r d aligne d area of 400 bytes that may 
be used by SDOHP as a work area. 

Word 4 is the address of the first byte of a core region to be dumped. 
There are no boundary requirements for this address. 

Word 5 is the address of the last byte of a core region to be dumped. 
There are no boundary requirements for this address; however, an address in 
Word 5 which is less than that in Word 4 will cause a return with KC=4. 

Output Formats 

Registers : 

General and floating point registers, if requested, are always given in 
labelled hexadecimal format. The length of the output record is governed 
by the setting of bit 27 of the switch. 

Core Storage: 

Although an y combination of switches is acceptable, the appearance of 
the dump output for a region of core is determined as follows: 

1. If, and only if, the mnemonic switch is on the unit of core storage 
presented in each print item is a halfword aligned halfword. 

2. If, and only if, the mnemonic switch is off and the hexadecimal 
switch is on (througn intent or default) , the unit of core storage 
presented in each print item is a fuliword aligned fullword. 
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3. If, and only if, the mnemonic and hexadecimal switches are off but 
the EBCDIC switch is on, the unit of core storage presented in each 
print item is a doubleword aligned doubleword. 

In all cases the output includes (1) the entire core storage unit 
(half word, fullword, or doubleword) in which the first specified core 
location (parameter word 4) is found, (2) the entire core storage unit in 
which the last location (parameter word 5) is found, and (3) all 
intervening storage. That is, tiie first and last printed items of a core 
storage dump may include up to a maximum of seven core bytes more that 
actually requested in the parameter list. 

If mnemonics are requested and SDUMP discovers a byte that cannot be 
interpreted as an operation code, then, instead of a legal mnemonic, the 
characters "XXXX" appear directly below the hexadecimal presentation of the 
halfword in core that should have contained an operation code. Hhen this 
occurs, the mnemonic sccinner jumps ahead as though the illegal operation 
code specified an RE type instruction (i.e., two bytes) and tries to 
interpret the byte at the new location as an operation code, and so forth. 
ftny mnemonic print line that contains the "XXXX" for at least one of its 
entries is also marked with a single "X" directly below the line address 
that prefixes the hexadecimal presentation of that same region of core. 
(The mnemonic conversion routine includes the universal instruction set and 
also those instructions exclusively used by Model 67) . To facilitate the 
location of particular items in the output, line addresses always have a 
zero in the least significant hexadecimal position and column headers are 
provided. The column headers give the value of the least significant 
hexadecimal digit of the address of the first byte in each -print item. 

A line of dots is printed to indicate that a region of core storage 
contains identical items. The core storage unit used for comparisons is 
halfword, fullword, or doubleword, depending on the type (s) of conversion 
specified. In all cases the core storage unit corresponding to last item 
printed before the line of dots and that for the first item after the line 
and all intervening core storage units have identical contents. The last 
line is always printed (even if all of its entries exactly match the 
previously printed line) . 
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SUBBO'JTINE DESCRIPTION 

Name: SERCOM 

Purpose: Print an error comment (output record) 

Calling sequence: OS (I) S type 

^ntry: GE1 contains location of a parameter list: 



A(HEGION) 

A (COUNT) 

A(MODIFIEfiS) 

A (LINE NUMBER) ] 



Word 1 ; 

2: 

3; 

[4; 

Exit: EC = Normal return 

= 4 Output device full 

The parameters are described in section 252. 

Caller sets up all parameters. Word 4 of parameters is 
needed only if the modifiers specified indexed or return 
line number ( peel ) . A word 3 of zero is assumed equivalent 
to a Word 3 containing the location of a zero word. 

Subroutine writes out a record of length specified from 
region specified. 

^otes: 1. This subroutine may be called from FORTRAN as well as 

assembly code. E.g., CALL SERCOM (REG, LEN,0) Note that 
LEN must be INTiiGEfi*2 

2. There is a macro of the same name in the system macro 
library for generating the calling sequence to this 
subroutine. See the writeup in section 255. 

Default specification for unit: Master sink (terminal) 
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SOBROOTINE DESCfilPTION 

Name: SETIOERE 

Purpose: Allow the user to regain control when I/O errors that would 
otherwise be fatal occur during execution. 

Calling sequence: OS (I) S type. 

Register 13 save area is not required. 

Entry: GE1 contains the location of an adcon containing either the 
location of a subroutine to transfer to when an I/O 
error occurs or zero, in which case the error exit is 
reset. 

When the error routine is called, registers and 1 both 
contain what was in GR13 upon entry to the I/O routine, 
i.e., the location of the save area in which the I/O routine 
saved registers at the time of the call. 

If the error routine returns, return is made from the I/O 
routine as if no error had occurred. 

The error exit is reset at a normal termination of execution 
(return or call on SYSTEM) , or just prior to executing the 
next $RON command, if abnormal termination of execution 
occurred. (call on EEfiOB, attention or program interrupt, 
etc) . 
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SUBROOTINB DESCfilPTION 

Name: SETPFX 

Purpose: To set the prefix character issued during execution as the 
first character of every input or output line. 

Calling sequence: OS (I) S type 

callable from Fortran and assembly code. 

Entry: GRI contains the location of a parameter list 

word 1 is the location of the prefix characters 
word 2 is the location of a f ullword count of the number of 
characters . 

Exit: GEO contains the previous prefix character, right- justified 
with leading hexadecimal zeros. 

Restriction: Currently only one character may be used. Hence only the 
first character at the location specified is used. 

Example: OLD = SETPFX ('/' »1 ) 
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SOBBOOTINE DESCRIPTION 

Name: SPRINT 

Purpose: Print a "line" (output record) 

Calling sequence: OS (I) S type 

Entry: GE1 contains location of a parameter list: 



A (REGION) 

A (COUNT) 

A (MODIFIERS) 

A (LINE NUHBER) ] 



Word 1: 

2; 

3; 

[U: 

Exit: RC = Normal return 

= 4 Output device full 

The parameters are described in section 252. 

Caller sets up all parameters. Word 4 of parameters is 
needed only if tlie modifiers specified indexe d or return 
line number (£eel) . A word 3 of zero is assumed equivalent 
to a Word 3 containing tiie location of a zero word. 

Subroutine writes out a record of length specified from 
region specified. 

Notes: 1. This subroutine may be called from FORTRAN as well as 

assembly code. E.g., CALL SPRINT (REG, LEN,0) Note that 
LEN must be INTEGER*2 

2. There is a macro of the same name in the system macro 
library for generating the calling sequence to this 
subroutine. See the writeup in section 255. 

Default specification for unit: Sink 
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!*ame: SPONCH 

Purpose: Punch a "card" (output record) 

Calling sequence: OS (I) S type 

Entry: GR1 contains location of a parameter list: 

Word 1: A (REGION) 

2: A (COUNT) 

3: A (MODIFIESS) 

[t: A (LINE NOMBER) ] 

Exit: RC = Normal return 

= U Output device full 

The parameters are described in section 255, 

Caller sets up all parameters. Word 4 of parameters is 
needed only if the modifiers specified indexed or return 
line number ( pee l) . A word 3 of zero is assumed equivalent 
to a Word 3 containing the location of a zero word. 

Subroutine writes out a record of length specified from 
region specified. 

JTotes: 1. This subroutine may be called from FORTRAN as well as 

assembly code. E.g., CALL SPONCH (REG, LEN,0) Note that 
LEN must be INTEGER*2. 

2. There is a macro of the same name in the system macro 
library for generating the calling sequence to this 
subroutine. See the writeup in section 255. 

Default specification for unit: None (terminal usage) 

♦PUNCH* (batch usage) 
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SOBROOTIHE DESCRIPTION 

Name: SYSTEM 

Purpose: Stop the world - I want to get off 

Calling sequence: None - just branch 

(callable from both assembly code and FOBTRAN) 

Effect: Returns control to MTS to terminate execution. Execution 

terminated in this manner cannot be REST&RTed. The comment 

"EXECOTUION TERMINATED" is printed for a normal termination 
of execution like this. 
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SOBROOTINE DECHIPTION 

Name: WBITE 

Purpose: Write output record on specified logical unit 

Calling sequence: OS (I) S type 

Entry: GR1 contains location of a parameter list: 



A (REGION) 

A (COUNT) 

A (MODIFIERS) 

A (LINE NUHBER) 

A (UNIT NUMBER) 



Word 1 

2; 

3; 

4: 

5: 

Exit: RC = Normal return 

= 4 Output device full 

The parameters are aescribed in section 252. 

Caller sets up all parameters, except that Word 4 
parameter must be set up only the modifiers specified 
indexed . 

Subroutine writes out a record of length specified on 
unit specified from region specified. 

Notes: 1. This subroutine may be called from FORTRAN as well as 

assembly code. E.g., CALL WRITE (fiEG,LEN,0 ,1NR,3) . Note 
that LEN must be INT£:gER*2 . 

2. There is a macro of tne same name in the system macro 
library for generating the calling sequence to this 
subroutine. See the writeup in section 255. 

Default specification for units: None 
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MACRO LIBRAHIES 

This section describes the macros available in the system macro library 
(*SYS!1RC) and how to construct a private macro library. 
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System Macro Libr ary - ♦SYSBAC 



The system macro library (*SYS!I1AC) contains all of the macros described 
in this section (MTS-255) . It may be utilized by specifying it for logical 
I/O unit when running the assembler: 



JEON *AS!!!BLR; 0=*SYSilAC SCARDS=. 



Some of the macros available are essentially the same as in IBM's 
Operating System (OS/360) : they have the same effect (except where 
specified) as their OS equivalents, but generate code appropriate for 
interfacing with MTS, not OS. They are listed below. For descriptions, 
see IBa's publication "Supervisor and Data Management Macro - 
Instructions", form C28-6647. Descriptions of other macros are on the 
following pages. 



OS - e q uiva l ent Macros 



ABEND 

CALL 

DCB 

DCBD 

FREEBAIH 

GETaAIN 

LINK 

LOAD 

RETOPN 

SAVE 

TIME 

WTO 

WTOR 

XCTL 



(no parameters, same as ERROR - q.v.) 



no SP no MF 
no SP no MF 
only EP or EPLOC 
only EP or EPLOC 



(no parameters - returns HH:MM.SS in GRO-GRl, MM-DD-YY in 
GR2-GR3) 

no ecb address 
only EP or EPLOC 



Notei If *SYSMAC is used, the following aaditional macro names cannot be 
aefinea by the user — raEhdHkC, IHBINNRA, IHBOPLST, IHBHD»RS, 
IHBRDWRK, IHB01, IHB02, #IOHPRLS, #IOHOCCK, #FIX, tlOHERCK, #LNXC, 
#MTSIOCP, «MTSIOSTl, #MTSIOG , »MxSIO£F, tMTSIOPS 
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MACRO DESCaiPTION 

Name: ACCEPT 

Purpose: To "accept" an image so tiiat the next Bead Format or Look At 
Format using IOH/3 60 will see a new image. This does not 
apply to FORTRAN format I/O. 

Prototypa: [LABEL] ACCEPT [UNIT] 

where ONIT is the name of a full-word aligned full word containing 
either a logical unit number or a FDUB point-er which 
specifies the unit whose image is to be accepted. If 
omitted, SCASDS is assumed. 

Note: A call (by IOH/36 0) to RCLOSE causes the "accept" switch to 

be set for the appropriate logical I/O unit; a call to 
LCLOSE just sets the return code to zero and returns to 
IOH/360. A user may decide to do some Look At Formats and 
then decide that he wants to read the next image — to do 
this he should ACCEPT the current image and the Look At or 
Read the next image with LKFMT or RDFMT. 
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MACEO DESCRIPTION 

Name: B&S,BASB 

purpose: To assemble the BEANCH-AND-STORE and 
BRANCH-AND-STOBE-SEGISTEE instructions which are opcodes 4D 
(hex) and OD (hex) respectively on the IBM 360 Model 67. 

Prototype: 

[LABEL] BASE E1,E2 
[LABEL] BAS R1,D2(X2,B2) 

Osage: These instructions are essentially the same as the BAL and 

BALE instructions except that the high-order byte of the 
branch register is zeroed out (i.e., the instruction length 
code (ILC) and condition code (CC) are not inserted) in 
normal PSW mode or extended PSW mode with either no 
translation on or 24 bit translation on [MTS normally runs 
with 24 bit translation on]. See the Model 67 Functional 
characteristics manual (A27-2719) for details. 
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MACRO DESCfilPTION 



Name: 
Purpose: 



Prototype; 
Usage: 



DFAD,DFSB,DFMP 

To simulate double-precision floating point using the double 
precision hardware instructions. These macros will add, 
subtract, or multiply two contiguous long floating point 
registers by a double precision (16 byte) operand and place 
the result in the appropriate floating point registers. 

[LABEL] DFxx BEG, ADfi, TEMP 

The contents of ADR (8 bytes long aligned on a double-word 
boundary) and ADR+8 (8 bytes long aligned on a double-word 
boundary) are added to, subtracted from, or multiplied by 
the contents of long floating registers REG and REG+2. Mote 
that REG cannot fie 6 as there is no floating register 8. 
TEMP specifies a scratch area which will be used: in the 
case of DEAD and DFSB. The scratch area must be 16 bytes 
long, aligned on a double- word boundary; in the case of DPMP 
the scratch area must be 6H bytes long, aligned on a 
double-word boundary. 

A double precision operand may be considered as two long 
floating operands. Both operands have a characteristic and 
a mantissa; the characteristic of the second long operand is 
14 less than the characteristic of the first long operand. 

These macros use the hardware operations ADD, ADDR, SDD, 
SDDE, HDD, and MDDR. [These instructions are BPQ number 
M24391 ] 
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MACBO DESCKIPTION 



Name: DFIX, EFIX 

Purpose: To convert a floating point number (in a floating point 
register) to an integer (in a general register) . 

Prototype: [LABEL] JDFIX^ FPR,GB[ , WA=workarea ] 

where FPB is the floating-point register 
GE is the general register. 
RA designates a work area of two double words aligned on a 

double word boundary. If omitted, the macro will 

allocate an in-line work area. 



Description: 



DFIX converts a 
bytes) ; EFIX conv 
number (first fo 
contents of the 
restored at the 
possible to conver 
to fit (as an 
floating point num 
attempt is made to 



long precision floating point number (8 
erts a short precision floating point 
ur bytes of floating point register) . The 

specified floating point register are 

end of the macro call. Note that it is 
t a floating point number that is too big 
integer) in a general register - e.g., the 
ber 1.2E30 is obviously too big. No 

signal this as an error. 
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MARCO DESCBIPTION 



Name: 
Purpose: 
Prototype: 
Parameters: 

Example: 
Description; 



DISMOUNT 

Set up calls to dismounting routines 

[LABEL] DISMOONT 'MESSAGE* 

'MESSAGE' is the pseuao-device-name of the volume to be 
dismounted 

DMNT DISMOUNT i*tAPE*' 

A call will be set up to DISMOUNT. (See MIS 280/24627) . 
The macro generates literal constants, hence literal 
adressability must be preserved. 
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MACRO DESCfilPTION 



Name: 

Purpose: 

Prototype: 

where BEG 



ENTER 



To generate prolog code for the entrance to a subroutine- 
[ LABEL] ENTER EEG[ ,SA=savearea ][ ,LENGTH=len ][ ,TREG=tempreg ] 

to be established as a base register. 



SA 



is the register 

Should not be 15. 

specifies the location of a save area to use. If SA is 

omitted, a call to GETSPACE for a save area of length 

specified by LENGTH is made. 
LENGTH specifies the length of the save area to be obtained if SA 

is omitted. If LENGTH is not specified, 72 is used. 
TREG specifies a temporary register which is used. If omitted, 

register 15 is used. TRSG should not be the same as REG. 



Examples 



Effect: 



SUBE 


ENTER 


12 


F 


ENTER 


9,SA=SAVARa 


G 


ENTER 


15,TEEG=12 



Causes code for the following to be produced: 

1. Generates USING *,aEG 

2. Establishes REG as base register 

3. If SA is omitted calls GETSPACE to get save area 
LENGTH long 

a. Establishes forward and backward links 
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MACEO DESCRIPTION 



Name: 
Purpose : 

Prototype: 
where 

Examples 
Osage: 



EXIT 

Se-establish calling program's save area and return with a 
return code in register 15. 

[LABEL] EXIT HC[,MP=FS] 

RC is a self-defining term which is the return code. MP=FS 
specifies that the save area pointed to by register 13 is to 
be released. 



OOT 



EXIT 
EXIT 



This requires that the save area was properly linked on 
entry to the subroutine, such as is done by the ENTER macro. 
If the ENTER macro was used and it obtained space via 
GETSPACE, this space can be released by specifying MF=FS. 
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MACRO DESCRIPTION 

Name: FLOAT 

Purpose: To convert the contents of a general register or a full-word 
aligned area in storage into a floating-point number and 
leave the converted number in a floating point register. 

Prototype: [LABEL] FLOAT ARG1,ARG2 

where 

ARG1 can either be a general purpose register or a full- 
word aligned location; if ABG1 designates a general 
register then the argument must be enclosed in 
parentheses. 

AEG2 is the floating point register into which the results 
are placed. 

Note: Contents of register zero are destroyed if ASGI specifies a 

storage location. 

Literal addressability is required. 

FLOAT A, 2 Float the contents of A and put in FPE 2 
FLOAT (6), 6 Float the contents of GR6 and put in FPfi 6 
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MACRO DESCEIPTION 

Name: GETSPACE 

Purpose: To assemble a call to the GETSPACE subroutine 

Prototype: [LABEL] GETSPACE [LENGTH,] T=type 

where LENGTH is a self-defining term specifying the number of bytes of 
storage wanted. ir omitted, the length is assumed to be in 
general register 1. 

specifies the type of space wanted. type should be 0,1,2, 
or 3. See description of GEO contents in GETSPACE writeup 
[MTS-253/27635]. 



T 



Example: GETSPACE 8192, T=J 
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Macro Calls to IOH/360 

A set of Macro Definitions has been written to allow the user to 
painlessly call IOH/360 since the calling sequence is somewhat ghastly and 
one may not like forming the calling sequence manually more than a few 
times. 

The following Macros have been defxned: 

EDFHT - 'read format' 

LKFMT - 'look at format' 

WRFMT - 'write format' 

PCFMT - 'punch format' 

PRFMT - 'print format' 

MOREIO- 'continue parameter list' 

ONEIO - 'continue parameter list one element at a time' 

ENDIO - 'terminate I/0-processing' 

lOP - 'I/0-parameter' (acts like ONEIO or MOBEIO depending on the 
number of arguments given) 

EEFMTC- 'repeat call' 

SEHFMT- 'print formatted error comment' 

Whenever the term LIST is used in the following descriptions, it will have 
the following meaning: 

The LIST is the parameter list i.e. tne arguments on which 

IOH/360 is to work as directed by the FORMAT. The LIST may be either 
a single element or a list of elements each to be taken as an argument 
or part of a block-argument. If there is more than one element in the 
LIST, then the whole LIS T must be enclosed in parentheses. 
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More specifically: 



<LIST> 

<listp> 

<list element> 

<block sublist> 

<atOTnic argunient> 



= <atomic argument> | (<listp>) 

= <list element> | <listp>,<list element> 

= <atoiiiic argument> | <block sublist> 

= <atomic argument>,- . . ,<atomic argument> 

= <legal Assembler Language expression> 



INITIAL CALL TO IOH/360 



The initial call to IOH/3 60 is made using the Macros 
RDFaT,LKFJlT,WRFMT,PCri!lT, or PHFMI. The general form of these five Macro 
Calls is as follows (the 'read format' call will be used as an example): 

RDFHT FOfiMAT,LIST,OPEN=MYOPEN, CLOSE=MYCLOSE,EOF=MYEOr,LaNII=MYaNIT, 
EEROfi=MYEBEOK,SECT=MYSECT,POOLSW= or 1 ,NC=ARGNC,TYPE=MyTYPE 

FORMAT refers to the user-supplied format which will tell IOH/360 how to 
interpret fields going to or coming from the line image. LIST has been 

described previously LIST may be empty (i.e. it may be omitted). The 

other parameters in the Macro Call (i.e. the keyword arguments) are 

optional. Any or all may be deleted if any of the keyword arguments 

appear, they may appear in any order. If the user wishes to use one of the 
keyword arguments, he must place some symbol (which is either system- 
defined or user-defined) in place of the "MY"-symbols as shown above. 

example: PRFMT FMTI, (A,B,A + 100, ,A+200 ,0) ,P001SW=1 ,TyPE=S, 

CLOSE=MFCLOSE, 0PEN=MLOPEN, SECT=PQSECT,NC=1 2 

THE KE YWORD OPTIONAL ARGOMBN TS 

OPEN and CLOSE 

OPEN Indicates the name of a user-supplied routine which IOH/360 will 
call when it needs a new line image; the routine so named may be 
internal to the calling program or external to it; in the latter 
case it must have been defined in an EXTBN statement. 

CLOSE Indicates the name of a user-supplied routine which IOH/360 will 
call when it needs to put out a line image (i.e. release a line 
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image) ; the routine so named may be internal to the calling 
program or external to it; in the latter case the name must have 
been previously defined in an EXTKN statement. 

NOTE: If the user is going to supply one of the pair of an OPEN or a 
CLOSE, then he should supply both (especially in the case of the 'read 
format' usage). See the IOH/360 writeup about the details of writing an 
OPEN or CLOSE routine. 



ERROR returns and END-OF-FILE returns 

The user may specify that on each return from IOH/360, a check of the 
return code is to be made. If either the EOF or ERROR arguments appear, 

then, a check of the return code is to be made and the generation of 

the appropriate code will be made to route the return to the point 
specified by the user. NOTE: IOH/360 will return to the user with a 
non-zero return code only if the correct flag bits have been previously set 
by a call to SETIOHER (see IOH/360 writeup for details) . 

20F indicates the name of a user-defined or system-defined routine to 
handle END-OF-FILE returns from IOH/360; the routine may be 

internal or external to the calling program if external, it 

must have been declared external in an EXTRN statement. NOTE: 
IOH/360 will allow an EOF return only if the user has set the 

appropriate flag by calling on SETIOHEfi if this switch has 

not been set, return will be made to the system routine SYSTEM 
with the comment: AL L INgO T DATA HA S BEEN PROCESS ED AT LOC ATION 
XXXXXX. 

EEEOE indicates the name of a user-defined or system-defined routine to 
handle ERROR returns from IOH/360; the routine may be internal or 

external if external, it must have been been declared so in 

an EXTRN statement. NOTE: IOH/360 will allow an ERfiOB return 
only if the user has set the appropriate flag by calling on 

SETIOHER if this flag is not set, return will be made to the 

system routine ERROR, with the comment: E RROR RETURN TO SYSTEM. 
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SECTi_„Placeme nt of Pa rameter Lists 

SECT indicates the name of a Control Section in which the parameter 
lists generated by the current Macro Call are to be placed. The 
SECT argument need not be given on every call. The effect of a 
previous SECT argument is retained until the appearance of a new 
SECT argument. Initially, Macro Calls are generated with in-line 
parameter lists with a branch around them. The user may cause 
these parameter lists to be placed in the Control Section 
designated by the last SECT argument. If the last or present 
SECT argument given is an asterisk, "*", then in-line parameter 
lists will be coded with a branch around them. 



NC 



ggPLSW: ^Accum ul atio n of Sublist-Count Addresses 

POOLSH each time a Macro Call is expanded, half-word constants may be 
generated which form the counts for the lists and sublists. The 
user may cause such half-words to be accumulated so that 
half-words previously generated are not generated and the 
previously defined half-words are used (i.e. the macro expander 
keeps track of names it has assigned to certain half-word 
constants that it has generated previously) . The proper use of 
this switch allows one to avoid generating redundant half-word 

constants it is a space-saver in this respect. The POOLSW 

argument acts as a binary switch. It may take on the values or 
1. Each time it is explicitly used (whether it is given an 
assignment or 1) in a i'lacro Call, all previous half-word 
constant reference accumulation is lost; i.e. the half-word 
constant pool begins to be built from scratch. The initial value 
of POOLSW is 0. If the assignment to POOLSW is 1, then new 
constant pools are generated for each Macro Call thereafter until 
the setting of POOLSW is changed. If the assignment to POOLSW is 
0, then an accumulation of half-word constants starts at the 
present Macro Call and continues until the assignment of POOLSW 
is explicitly given again (i.e. explicitly a or 1). 



NC; Use of Previous Lists 

the user may assign "names" to the Macro Calls which he uses by 
using the NC parameter. He then may refer to such an assigned 
name in a later Macro Call to use the same format and list 
defined in the Macro Call which originally defined the name (this 
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allows the user to use the same format and parameter list for 
many Macro Calls; it saves space) . The NC argument can be any 
string of characters up to eight characters in length. Only 
twenty-five such (different) names may be used in a single 
assembly. The following happens on encountering an unomitted NC 
argument. K search is made of the list which contains previously 
defined Macro Calls using the NC argument. If the present NC 
argument has not been used before, then an entry for the present 
Macro Call is made in the table and processing proceeds as if the 
NC argument was omitted. If the present NC argument is already 
in the list, then both the FOBMAT and the LIST of the present 
Macro Call are ignored. The calling sequence for the present 
Macro is so arranged as to point to the parameter list which 
contains the FORMAT and the LIST of the Macro Call which 
originally defined the present NC argument. When the NC argument 
is used in an REFMTC Macro Call, it specifies that in addition to 
using the LIST and FORMAT of a previous Macro Call, the OPEN and 
CLOSE arguments are also to be used (see BEFMTC description 
following) . 



TYPE 



TYPE; The Type of Adcons Generated for the Lis t 



The list 
forms, 
adcons) 
(i.e. 
One may 
generate 
will als 
changed 



s that the Macro Processor generates may be in pne of two 
The first type consists of full-word adcons (i.e. type-A 

The second type of list consists of half-word adcons 
S-type adcons) . Initially a type-A list is generated, 
set the value of the keyword "TYPE" to either A or S to 

one or the other type of list. The type so selected 
o be used in all succeeding calls until the TYPE is 



LDNIT; The Logi c al Onit Numb er 



LHNIT The user may specify 
which or from which ima 
as a keyword argument, 
be used for input and 
present, the logical un 
logical unit in this 
(using the READ subrout 
WRITE subroutine) . The 
a FDUB pointer. The im 



a logical un 
ges are to b 
then the rou 
output of im 
it so named 
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it number (between 
e passed. If LDNIT 
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ages. If the LONIT 
(i.e. LONIT=0 ; " 
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is omitted 
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(using the 

address of 
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DEFAOLIS FOB 'OPEN' AND 'ClOSS' 



If the OPEN or CLOSE parameters are omitted and the LONIT keyword is 
omitted, the Macros will generate adcons with the names of the appropriate 
SYSTEM-supplied OPEN and CLOSE routines. They are as follows: 



MACRO CALL 



RDFHT 



LKFMT 



PfiFMT 



PCFMT 



WBFMT 



SERFHT 



OPEN 



ROPEN 



LOPEN 



POPEN 



PCOPEN 



POPEN 



SEROPEN 



CLOSE 



RCLOSE 



LCLOSE 



PCLOSE 



PCCLOSiS 



PCLOSE 



SERCLOSE 



ROUTINE CALLED AND LENGTH OF IMAGE 



SCARDS-80 columns (not called if 
previous input image has not been 
•accepted') 



SCARDS-80 columns (not called if 
previous input image has not been 
'accepted') 



SPRINT- 132 columns 



SPONCH- 80 columns 



SPRINT- 132 columns 



SEfiCOM- 132 columns 



NOTE: PRFMT should be used tor transmitting an image to some kind of 
printer. WBFMT should be used for transmitting images to any 
I/O-device capable of receiving tne image. PRFMT and WBFMT actually 
generate the same calls. 

NOTE: a call on RCLOSE or ACCEPT causes the input image transmitted by 
a previous call to LOPEN or ROPEN to be 'accepted'. 
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ADDITIONAL FEATURES 



Whenever IOH/360 finds a zero as an argu ment address, it terminates I/O 
processing. The appearance of the zero element may appear anywhere in the 
argument list where reference to an I/O argument may be placed. If IOH/3 60 
works its way through an argument list and does not find the zero element, 
it returns to the user. The user has the option of returning or not 
returning to IOH/360 with another argument list. If he does not return or 
makes a new initial call to IOH/360 (the initial types of call have been 
defined above) , then he "loses" any remaining image left in the image 
buffer. If he returns with another parameter list, I/O processing will 
continue from the place where it was when IOH/360 previously returned to 

the user. This process can continue as long as the user wants to do so 

IOH/360 just keeps on performing I/O-conversion until the zero element is 
reached. The return to IOH/360 can be generated with four types of macros, 
they are: 

MOREIO 
ONEIO 
ENDIO 
lOP 

MOBEIO -with this Macro, the user can generate a new argument list, can 
specify EOF, EREOB, SECT, NC, POOISW, and TYPE arguments, and has the 
option of telling IOH/360 to use a new format instead of continuing with 
the original format. The general torm of the call is: 

MOREIO LIST,EOF=MYE0F,EaROR=MYEEH0R,SECT=MYSECT,CFHT=F0RMAT, 
POOLSW=0 or 1,NC=NCAfiG,TYPE=MYIYPE 

If CFMT is used all knowledge pertaining to the previous format will be 

lost i.e. IOH/360 uses the new format just as if it were the original 

one. In particular, knowledge of placement of parentheses and their 
associated multiplicities in the previous format is lost. With the CFMT 
feature, the user may build a format as he goes along during execution (he 

needs to have only a part of the format present at any one time) one 

thing to remember is that the user must supply enough format eacn time for 
the number of arguments in the associated parameter list or terminate each 
such format with an asterisk (i.e. •*•). Note that if the HC argument 
refers to a previously compiled Macro Call, then the LIST and CFMT 
arguments of the present call are ignored and the LIST and FORMAT (or CFMT) 
of the previous Macro Call which used that NC argument will be used. 

ONEIO - with this Macro, the user may give IOH/360 one argument at a time 
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much like the STB (store and trap) on the 7090. He may also specify the 
SOF and ERBOR arguments. The form of the Macro Call is : 

ONEIO AEG,E0P=HYE0F,ERSOB=MyEBKOfi 

If ARG is a zero (i.e. ONEIO 0), I/O- processing is terminated. 

HOTE: If ARG is omitted, register 1 is assumed to contain the argument 
address. 

ENDIO- with this Macro, one can terminate an I/O list. It is equivalent to 

ONEIO 0. 

lOP- to transmit either a single argument or a single blocked-pair, one may 
use the lOP Macro. The EOF and ERBOR keyword arguments may toe used in this 
macro call. 

lOP ARG is equivalent to ONEIO ARG 

lOP ARG1,...,ARG2 is equivalent to MOREIO (ABG1, . . . ,AfiG2) 

BEFMTC; How to "Execut e" Pr evious Calls 

The EBFMTC Macro is used to "execute" previously defined initial-type Macro 
Calls. The general form of an REFMTC call is: 

EEFMTC NC=NCARG,£RR0B=MYERfiOR,EOF=MYEOF 



The NC-argum 
initial-type 
call is to se 
initial-type 
FORMAT and LI 
example, all 
the exact sam 
space-saver i 



ent must be prese 
Macro Call using tha 
t up code which will 
call (even if they 
ST of that call. Th 
ow one to have man 
e FORMAT, LIST, a 
n this respect. 



nt and refers to a previously-defined 
t NC-argument. The effect of this type of 
use the OPEN and CLOSE arguments of the 
were defaulted) , in addition to using the 
e use of this Macro Call would, for 
y places in a program to read a card using 
nd OPEN and CLOSE options. It is a 



NOTE 



So that the user's names do not conflict with the names generated during a 
Macro Call, all names generated during Macro processing start with a #-sign 
and have a number immediately following the #-sign. All such names have at 
least three (3) characters in them. Also, all global set-symbols used 
during Macro Call compilation begin with a #-sign. 



The names of the Macros that 
described above are as follows: 



are used in expanding the IOH/360 macros 



#IOHPELS 
#IOHOCCK 
#IOHERCK 

Thus the user should not define his own macros with any of the above names. 
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EXAMPLES 



PBFMT F0SMAT1, (A,B,C , . . . ,C+8 , A+5, A+10 , . . . , A+15,G) ,OPEN=IOPEN, 
CLOSE=ICLOSE 

The above call is equivalent to the following set of calls: 

PEFMT FORMATI ,OPSN=IOPSN,CLOSE=ICLOSE 

lOP A 

10? B 

lOP C,. . . ,C+8 

lOP A+5 

lOP A+10, ,A + 15 

ENDIO 



IOH/360 Macro Calls 215 



MTS-255/446t»5-0 
12-1-67 



MACRO DESCBIPTION 

Name: MOUNT 

Purpose: set up calls from execution to mounting routines. 

Prototype: [LABEL] MOONT 'MESSAGE' 

Parameters: 'MESSAGE' is the character string which would immediately 
follow "PAH=" if the subroutine were called in command mode. 

Examples: MOUNT 'M123 ON 9TP, PNAME=Iest, "TEST TAPE",fiING IN' 

Description: A description of the mount subroutine is given in HIS 
280/44645. The macro generates literal constants, hence 
literal addressability must be preserved. Note also double 
primes are used to produce one prime in actual text. 
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Name: 
Purpose: 

Prototypes; 



MACRO DESCRIPTION 



SCASDS, SPRINT, SPONCH,SERCOM, BEAD, WRITE 

To assemble calls to the system I/O routines of the same 
names. 

Type 1: The user specifies a region and length. 



[LABEL] , 



SCARDS 
SPRINT 
SPONCH 
SERCOM 



REG [ , HEGL ][ , HODIFS ][ , LNR ][ , EXIT=exitseq ] 



/READ ) 
[LABEL] twRITEJ UNIT, REG[ ,fiEGL ][ ,MODIFS ][, LNR ][ ,EXIT=exitseg ] 



Type 2: The user specifies a comment. 
sprint") 

[LABEL] ■ SPONCH I • comment 'L , MODIFS ][, LNR ][ ,EXIT=exitseg ] 

(sercoh) 

[LABEL] WRITE UNIT, 'comment •[ ,MODIPS ][ ,LNa][ ,EXIT=exitseg ] 



where REG 



REGL 



MODIFS 

LNR 
EXIT 



is the location of the region to be read into or 

written from. It' may be expressed as a symbol on the 

number of a register (which contains the location of 

the region) in parentheses. 

specifies the length. It may be either the name of a 

half-word containing the length or a self-defining term 

which is the length, or tne number of a register (which 

contains the length) in parentheses. If omitted, L'REG 

is assumed. 

stands for several parameters separated by commas. 

Each consists of the name of an MTS modifier (see 

section aTS-210) preceded by either an at-sign ("a") or 

an at-sign not-sign ("S-'") - 

is the location of a full-word aligned full word 

containing the line number. 

specifies exits to be taJcen for non-zero return codes. 

If exitseq is a single symbol, then any non-zero return 

code will cause a branch to this symbol. If e xits eq is 

a parenthesized list of symbols, then a return code of 

H will cause a branch to the first symbol, a return 

code of 8 will cause a branch to the second symbol, and 

so on. If a return code larger than that corresponding 

to the last symbol occurs, then a branch to tne last 
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UNIT 



symbol will taKe place. 

specifies the corresponding parameter to be given to 
HEAD or WRITE, either the numbers through 9 or the 
location of a lull-word aligned full word containing a 
FDUB pointer. 



Examples: 



LOOP 



SPEINT '1PH0GRAM TO DIDDLE AfiOUND* 

SCARDS REG,LEN,EXir=EOF 

READ 5,Il!lHEG,L,EXIT=(E0F,0UCH) 

SPEINT LINE, 80 

SCARDS REGION, LENG,ai,aPEEL,EXIT=DONE 

SPONCH (1) ,80 



Other forms: 



If MF=L is attached to any of the calls listed above, then 
only the parameter list will be generated. If the paramet- 
ers are replaced by 11F= (E,LISTADH) [ ,EXIT=exitseg] then LIS- 
TADR is assumed to be the location of a parameter list, and 
only the code to call the subroutine will be generated. 
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MACRO DESCRIPTION 

Same: SLT 

Purcose: To assemble a SLT (search list) instruction - opcode A2 

Prototype: 

[LABEL] SLT Ml ,L2,D2B2 

where Ml is the mask to be used 

L2 is the count to be used (actual count - not IBM count) 
D2B2 should be represented in a form suitable for assembly into 
an S-type adcon, i.e., D (B) , where B is the register 
containing the location of the list region and D specifies 
the displacement from the front of the block of the word 
containing the chain address. 

Example: SLT 10,2,LINKO (0) 

Usage: A description of the SLT instruction is available at the 

Computing Center. [The SLT instruction is RPQ number 
F13800] 
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MACBO DESCfilPTION 



Name: 

Purpose: 

Prototype: 

where GR 
FR 

Examples: 
Osage: 



SWPE 



To assemble an SWPB (swap register) instruction - opcode A3 

[LABEL] SWPR GR,FB 

is the even general register of an even-odd pair 
is a floating-point register. 



SWPR 
SWPR 



6,4 
0,0 



The SMPR instruction exchanges the contents of a floating 
point register and a pair of general registers. [The SHPR 
instruction is RPQ number M24390] 
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MTS Assembly Language Testing Macros 

A set of macros has been written which allows the user to write assembly 
programs without intermediate printing, and to add or delete such printing 
as is useful during the debugging phase without disturbing the code already 
written. 

The following macros have been defined: 

#AT -to define testing point (s) 

#DISPLAY -to print an arbitrary length string of bytes 

♦COMMENT -to print a comment 

#GENEEGS -to print the general registers 

#FLTEEGS -to print the floating point registers 

tGOTO -to transfer control within the testing macros 

#STOP -to halt execution 

#ENDTEST -a necessary evil 

Explanations and restrictions: 



#AT 



Prototype: 



[pplabel] #AT proglabel 

[pplabel] #AT (proglabell ,proglabel2, . . . ) 



The first occurrence of an #AT macro call inserts into the calling program 
a 24-26 byte link to a setup routine. Therefore the first #AT must follow 
relative address formation and be executed before any testing point is 
reached. 'pplabel* will only be defined in the first #AT call. Then it 
will be the first instruction in tne link sequence. 'proglabel* must label 
an instruction in the user's program. There is no default for 'proglabel'. 



Examples: 



PLABEL 



#AT T1 

#AT (TESTING, PELABEL, HEBE) 



#DISPLAY 



Prototype: 



[ttlabel] #DISPLAY stringname[ ,abcon[ , type]] 



This macro prints 'abcon' bytes beginning at 'stringname' in either ebcdic 
('type' equals BCD, EBCD, or EBCDIC) or hexadecimal ('type' is any other 
string) conversion. There is no default for 'stringname'. Default for 
'abcon' is L' (' stringname' ) . Default for 'type' is hexadecimal. 



Examples: 



TLABEL #DISPLAY ASEAY 

♦DISPLAY AfiEAy,,BCD 
♦DISPLAY SAVEABEA,72 
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COMKENT 



Prototype: 



[ttlabel] SCOflMENT 'characterstring' 



Forty bytes is the maximuin length of "characterstring'. 'characterstring* 
must contain at least one character. 



Examples: 



TLABEL1 iCOMMENT 'THIS COMMENT PBINTED' 
#COHMENT 'SO DOES THIS.' 



#GENEEGS 



Prototype: 
Examples: 



[ttlabel] 
TLABEL2 



#GENREGS 

#GENBEGS 
#GENfi£GS 



#FLTEBGS 



Prototype: 
Examples: 



[ttlabel] #FLTfiEGS 



TLABEL3 



#F1TBEGS 
#FLTSEGS 



#GOTO 



Prototype: 



[ttlabel] #GOTO ttlabel 



This macro transfers control within the testing macros, 
label on any testing macro except #AT and #ENDTEST. 



'ttlabel' may be a 



Examples: 



TLABEL4 



tGOTO 
#GOTO 



I1ABE13 
TLABEL2 



#STOP 



Prototype; 



[ttlabel] #STOP 



This macro stops execution with an operation interrupt. Everything except 
GE15 is available for $ALTEBing. SBESTABTing resumes execution. This 
macro has limited use in batch jobs. 



Examples; 



TLABEL5 



#STOP 
#STOP 
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#ENDTEST 

Prototype: #ENDTEST 

One call on this macro must be included in the user's program, and it must 
physically follow all other testing macro calls. 

CAUTIONS: 

1) The testing macros produce many names of the form aiESTxxx. These 
should be avoided by the user. 

2) This facility operates through program interrupts and will not 
behave if the user is processing his own interrupts. 

3) An EEROB HETURN with GR14 containing a location in aiESTITP 
indicated that the facility found an interrupt whicJi did not belong 
to it. In the dump only GEO is useful and it points to an 18 word 
save area which contains the conditions of the program at the time 
of the interrupt. Words 1 and 2 contain the PSW and words 3 to 18 
contain GEO to GR15. 

H) The facility will alter the program condition code immediately 
before the instruction named by an #AT macro. There is no other 
effect upon the execution ot the program. 
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Example of usage: 



OSING *,15 

STM 0,15,SAV£EEGS 



PEINT NOGEN 
#AT T1 
#AT T2 

#COMMENT 'THESE LOCATIONS HAVE NOT BEEN SET" 
#DISP1AY AEBAY,,BCD 
tDISPlAY AEBAY 
tGENREGS 
#FLTBEGS 
MOBE #COMMENT "ONE LAST COMHENT* 
#AT T3 
#GOrO MOEE 
#AT (T4,T5) 
#DISPLAY AEBAY, 50 
#AT T6 
#STOP 

#COMMENT • EESTAETED. . , ' 
#ENDTEST 



T1 




BCR 


1,0 


T2 




BCR 


2,0 


T3 




BCR 


3,0 


in 




BCR 


H,0 






MVI 


ARRAY, X«48' 






mi 


ARRAY, C'X' 






MVC 


ABBAY+1 (49) , ARRAY 


7'^ 




BCR 


5,0 


T6 




BCE 


5,0 






LH 


0,15, SAVEREGS 






BR 


14 


SAVEREGS 


DS 


16F 






DS 


CL3 


ARB 


AY 


DS 
END 


CL100 
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Output from example: 



* AT T1 



# AT T2 

# THESE LOCATIONS HAVE NOT BEEN SET 

# AHEAY,100 

# A**&*******& **&* ♦?**************** 

f 4::i:ii:^li!^^:iii If** ********************* 

# ASEAY,100 

# C102 

# CI 00035018 0000CB2C 00035070 000350A4 

# 00029S98 81038018 0000CE38 OO0OCE5C 00008768 

# 5000CCBE 00000000 00000004 0O0OCB2C 0002AD20 

# 0100CB2C 00000005 

# GENEBAL REGISTERS 

00029FAC 00029F48 00000000 

00000000 00029F40 00000000 

00000000 00029038 000140D6 

00011030 00029F54 00014CAC 



# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# 

# AT T4 

»ARRAY,50 



^iiti^L^:^iii:l^^i:t^************* *&*&****** 



4000D7AE 00000000 0001898 
0100CB2C 0000CB2C 000350D 
0000CE38 0000CE5C 0000876 



40017986 
00029FAC 
00012030 
00035018 



FLOATING POINT REGISTERS 

0000 00 0000 00000 000000 0000000 000 

ONE LAST COMMENT 

AT T3 

ONE LAST COMMENT 



0000000000000000 000 0000000 000000 



CI 00035018 0OO00B2C 00035070 

0002SE98 81038018 0000CE38 0000CE5C 

AT T5 
ARRAY, 50 

E7 E7E7E7E7 E7E7E7E7 E7E7E:/E7 

E7E7E7E7 E7E7E7E7 E7E7E7E7 E7E7E'/E7 



000350A4 
00008768 



E7E7E7E7 
E7E7E7E7 



4000D7AE 00000000 0001898 
0100CB2C 



E7E7E7E7 E7E7E7E7 E7E7E7E 
E700CB2C 



AT T6 

STOP. -.TYPE 'SRESTART' TO CONTINUE 
♦PROGRAM INTERRUPT. PSW = FF450001 40041276 
#SRESTART 

RESTARTED. . . 
#EXEC0TION TERMINATED 
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St rqcture of a Macro Library 

A macro library consists of a directory and the macros. 

A. The directory: 

1 . Each entry of the directory contains the name of a macro in 
columns 1-8 and the line-number of the macro definition header of 
the corresponding macro in columns 10-16. (Both the name and the 
line-number must be left justified with trailing blanks) . 

2. The line-number of the first entry in the directory must be 1. 

3. The terminating entry in the directory is a string of eight zeroes 
in columns 1-8. 

B. The macros: 

1. The line-number of the macro-definition header of each macro must 
be a positive integral number. 

2. The first macro follows the last entry in the directory. 

EXAMPLE: 

$ NUMBER 1,1 
BASE 10 
BAS 20 
00000000 
$NUMBER 10,. 1 

MACRO 
5LABEL BASH SREG1,SREG2 
SLABEL BALE 8REG1,SREG2 

MEND 
$NOMBER 20, .1 

MACRO 
&1ABEL BAS SREG1,SL0C 
SLABEL BAL &REG1,SL0C 

MEND 
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PHONE NUMBEBS - DATA SET DIRECTORY 



FBEQOENTLX CALLED NUMBERS 



Computing Center Model 57 Ports; 



TELETYPE (through 2702) 
(through data 
concentrator) 



2741 



1050 



(through 2702) 

(through data 
concentrator) 



(through 2702) 



763-0300 
764-0200 



763-0510 
7 6 3-0530 

764-0206 



763-0510 
763-0530 



(hunt -on-busy) 
(hunt-on-busy) 

[same as 1050] 



[ same as 2741 ] 
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COMPLETE DIfiECTOHY 



[ITEMS IN BRACKETS ABE NOT YET CONNECTED] 



ORDERED BY NOMBEE- 



NUMBER 

482-0794 
482-7915 
483-2652 

721-8110 

761-1947 

3-0139 

3-0149 
3-0164 
3-0167 

3-0170 
3-0190 
3-0193 

3-0196 
3-0300 

TO 
3-0315 

3-0316 
3-0510 
3-0530 

3-0563 
3-0570 
3-0571 

3-0572 
3-0573 
3-1175 
3-1176 



DATA SET 

103A 
103A 
103 A 

103A 
103A 
103A 

103A 
103A 
103A 

103A 
201A 
103A 

103A 
103A 



103A 
103A 
103A 

103A 
201A 
201A 

201A 
201A 
103A 
103A 



ROOM BLDG 



130 

2254 
ONIV 



2113 
1101 

HHY 

2518 

19 

HOSP 



WR 
WR 
WR 

FLO 

CRLT 

TMRS 

E£ 
SP 
NOB 

SAF 

EE 

P.S. 

ADMN 
CC 



CC 
CC 
CC 

1008 CHEM 
CC 
CC 

CC 

CC 

2518 EE 

2518 EE 



WHAT CONNECTED TO 

33ASS (PORTABLE) -BLDG. 2218 

35ASR-BLDG.2041 

33ASB-BLDG.2213 

3t>ASR-FLUIDS ENG. LAB. 

1050 

33ASR-L0G. OF COMP. GRP. 

33ASR-BLL RAD. LAB. 
35ASR-SPACE PHYSICS 
33ASR 

33ASE 
LI NO- 8 
33ASR 

33ASR (PORTABLE) 

TELETYPE PORTS 

OF 2702 (HUNT-ON-BDSY 

LINES) 

35ASR-MACHINE BOOM 
2741/1050 PORT OF 2702 
2741/1050 PORT OF 2702 

33ASR 

DECAFACE - SDH1 

DECAFACE - SDH2 



ANSWER-BACK 

DMISIBSWBAYP 
OMCPDETWEAYP 
OMISTiaWHAYP 

DM NDENG AAA 

OMLOGICCGAAA 

UMEEBALAB AAA 

UMSPCPHYSAAA 

OMGEOSBSLAAA 

UMHYSRI A AA 

UH H P C AAA 

UMBUHOSADAAA 



UM CMPC A AA 



UM CHEH A AA 



DECAFACE 
DECAFACE 
LINC-8 
LINC-8 



SDB3 
SDR4 
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NDHBER 


DATA SET 


ROOB 


BLDG 


WHAT CONNECTED TQ 


3-2189 
3-2196 
4-0200 

TO 
4-0207 


201A 
103A 
103A 


106 


MHRI 
DENT 
CC 


PDP-8 
33ASB 

DECAFACE PORTS 
(HUNT-ON-BUSY LINES) 


4-1538 
4-1571 
4-2273 


103A 
103A 
103A 


ONI 

2514 

2116 


COMP 
EE . 
1ST 


35ASfi-ARCH. RES 

35ASB 

33ASR 


4-2329 
4-2345 
4-3249 


103A 
103A 
103A 




NH 
CC 
CRLT 


1050 - LANGUAGE LAB 

2701 - TEL2 

33ASR 


4-3288 
4-4149 
4-4169 


103A 
103 A 
103A 


1031 
B101 
3216 


CC 

SPH 

EE 


1050 
1050 
35ASR 


4-4208 
4-4259 
4-4279 


202C 
103A 
103A 


108 


CC 
CC 

CC 


DECAFACE 

2741-MACHINE ROOM 
[2741-BASEHENT] 


4-4289 
4-4297 
4-4398 


103A 
202C 
103A 


231 


COOL 

CC 

CC 


33ASB 
DECAFACE 
2701 - TEB1 


4-4439 
4-4483 
4-4494 


103A 
X403 
X403A 


230F 


HE 
CC 
CC 


35ASR 

DECAFACE 

DECAFACE 



ANSWEE-BACK 



UM DENTL AAA 



UHABCHRESAAA 
OMSYSENGEEA 



MIT DUM1 DUHI 



UHCHENGAAA 



UHCOLYEBHAAA 



UH HENG C AAQ 



Data Set Directory 229 



MTS-270-1 



12-1-67 



NUMBER 


DATA SET 


ROOM 


BLDG 


WHAT CONNECTED TO 


4-4496 
4-6155 
4-6199 


103A 
103A 
103A 


1528 
2518 


CC 

UES 

EE 


DjSCAFACE - MAIN FRAME 

33ASfi 

33ASR 


4-6569 
4-6591 
4^7144 


103A 

X403A 

201A 


1525 

UNIV 


MaRI 

MH 

TWRS 


3bASR 

(LANGUAGE LAB) 

DEC PDP-7-L0G. OF COMP.GRP 


4-7145 
4-7146 
4-7147 


201A 
103A 
103A 


230F 
230F 
230F 


WE 
WE 
WE 


DEC 338 

DEC 338-MAINFflAME 

DEC 338-33ASB 


4-7539 
4-8270 
4-9525 


103A 
103A 
103A 


229 

2001 

108 


WE 

MHRI 

CC 


33ASR (PORTABLE) 
3bASR 
35ASR-BASEMENT 


4-9526 

4-9527 
4-9528 


103A 

103A 
103A 


230F 


CC 

CC 
WE 


33ASR-MACHINE ROOM 

(PORTABLE) 

35ASR - MACHINE ROOM 

35ASR 


4-9529 
4-9564 
4-9570 


103 A 
103A 
103A 


228H 
2601 


WE 
CC 
SPH 


33ASR-P0RTABLE (HERZOG) 
1050 - MACHINE ROOM 
35ASH 



ANSWER-BACK 



UMUNELSCLAAA 
OMSYSEE B AA 

UM MHRI A AA 



UMESUMCONFAA 
OM MHRI B AA 
UM CMPC B AA 

UM CMPC C AA 

UM CMPC D AA 
UM WENG A AA 

UM WENG B AA 

UM SPH A AA 
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LIBRARY FILE DESCRIPTIONS 



This section contains descriptions of many of the library files 
available to MTS users. 
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LIBRARY FILE DESCRIPTION 

Name: *AS& 

contents: The object module of a program to convert lines with ASA 
printer control characters in column 1 to lines with machine 
carriage control in column 1 (which can be directly 
printed) . 

^sage: This file should be referenced by a *EON command, 

logical I/O units referenced: 

SCABDS - Source of the lines with ASA carriage control 

SPRINT - printer (*SINK* in batch) or place to put the 
output lines. 

Examples: $RON *ASA; SCARDS=-PRINT 

(SPRINT defaults to *SINK*) 
$EON *ASA; SCARDS==-PRINT SP8INT=LISTING 

Note: If the output of *ASA is put in a file, then when the file 

is finally listed, the machine carriage control modifier 
should be specified: 

$CGPY LISTING TO *SINK*aMCC 
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LIBRARY FILE DESCRIPTION 

Name: *ASMBLR 

Contents: The initial object module of the Operating System F-level 
Assembler. 

Purpose: Assemble System/360 assembly language source programs. 

Osage: The F assembler is invoked by an appropriate RUN command 

specifying *ASi!!BLR as the file where object cards are found. 

Logical I/O units referenced: 

SCARDS The source program which is to be assembled. 

SPRINT The assembly listing and symbol reference table 
listing. 

SPDNCH The resulting object module. 

A library of macro definitions. This should be 
set to *SYSMAC unless the user wishes to use his 
own macro library. 

1 The file to contain the object module if it is to 
be executed. This is needed only if the parame- 
ter LOAD is set. 

2 A second library of macro definitions, described 
below. This is needed only if the parameter CON I 
is specified. I 

Examoles: $BUN *AS!1BLB , 

(SCARDS, SPRINT, SPONCH default to *SOURCE*, *SINK*, *PONCH*, I 
resp.) • 

$RDN *ASHBLR; SPSINT=*SINK* SCASDS=*SOURCE* 

0=*SYSMAC 1=-L0AD PAR=NODECK, L0AD,LINECNT=99 

$RON *ASMB1R; SPUNCH=LD SCAHDS=CDS 0=*SYSMAC 

Description: This assembler is IBM's Operating System F-level Assembler 
modified to run under MTS, and therefore offers the full 
facilities of that language. For a complete description of 
the language see the manual "IBM System/360 Operating System 
Assembler Language", form C28-6515-4. Two additions have I 
been made to the language. The COM pseudo operation may I 
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have a symbol in the label field. The common section 
generated is given this name exactly as in FOBTBAN named 
common. Also the operand field of a COPY pseudo operation 
can be any FDname as described in HTS-210. If parameters 
are to be given, the PAfi= sequence must be last in the 
sequence of specifications, as shown in the example above. 
The parameters are: 



DECK 



LOAD 



The object module is 
specified by SPOKCH. 



placed on the device 



The object module is placed on logical unit 
1. 



LIST 



XEEF 



RENT 



CON 



A listing of the prograi 
specified by SPRINT. 



is put on the device 



A cross-reference table of symbols is put 
the device specified by SPRINT. 



on 



The assembler checks for a possible coding 
violation of program reenterability. 

A macro library with the same structure as 
♦SYSMAC is placed as the file specified as 
logical unit 2. This library will be 
searched before the library on is searched, 
permitting the over-riding of system macro 
definitions or the concatenation of macro 
libraries. 



LINECNT=nn This parameter specifies the number of lines 
to be printed between headings in the list- 
ing. The permissible range is 01 to 99 
lines. 



TEST 



TESTBAN symbol table information is produced, 
(See *SDS writeup for usage.) 



The prefix NO is used to turn off parameters LOAD, LIST, 
XREF, RENT, CON, and TEST. If no options are specified, the 
assembler assumes tae following default entries: 
PAfi=NOLOAD, DECK, LIST, XEEF, NORENT, 
NOCON,NOTEST,LINECNT=56 



Note: 



The assembler 
MTS-510. 



usage writeup will be found in section 
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LIBRARY FILE DESCRIPTION 



Name: 



♦ASMEDIT 



Contents: 



The object module of a prog 
suitable for input to the 
format; that is, name field s 
field starting in column 10, 
column 16, and following c 
Continuation characters in col 
to sequence the card images pr 
program identification code fo 
ters. 



ram (1) to process card images 
MTS Assembler into standard 
tarting in column 1, operation 
operand field starting in 
omments delimited by a blank, 
umn 72 are not disturbed. (2) 
oduced with a four character 
llowed by four numeric charac- 



Purpose: 



Osage: 



To edit MTS Assembler input source decks into easily read 
form. This feature is especially desirable to clean up 
decks containing modifications made from terminals. 

The editing program is invoked by a RON command specifying 
♦ASHEDIT as the file containing the object module. 



Logical I/O units referenced: 

SCARDS 

SPRINT: 

SPONCH: 



A file containing card images suitable for 
input to the MIS Assembler. 

A listing of the edited deck is given on the 
specified device. 

The edited deck is output to the specified 
file or device. 



Example; 



Description: 



$RON *ASMEDIT; SCAEDS=PGn SPBINT=-LIST SPONCH=FGME 
$RON *ASMEDIT; SCARDS=PGM . ^ ^ ^, ^ 

(SPRINT defaults to *SINK*,SPUNCH to *PUNCH* (in batch)) 

♦ASMEDIT edits card images suitable for input to the MTS 
Assembler into standard format for the F-level assembler. 
It is useful for producing a neatly aligned deck from decks 
containing modifications made from terminals. The first 
card processed by *ASMEDIT must contain a four character 
deck identification code in columns 73-76 and a starting 
sequence number in columns 77-80; viz. 

PUNTOOOO 

I I 

73 80 

♦ASMEDIT will continue numbering, incrementing by one, from 
the starting sequence number. 
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LIBRAEY FILE DESCfilPTION 



Name: *ASKEEfi 

Contents: 



anfl ^fJ^f^r'^"^^ ?* ^ program to scan an assembly listing 
and find flagged lines and tHeir associated error comments! 

Purpose: To print the errors and diagnostics noted in a P-le^el 
assembly listing. x«vej. 

usage: The error listing program is invoked by a HON command 

specifying *ASMERR as the file containing the object Tollll. 
Logical I/O units referenced: 

SCARDS A file containing an assembly list- 
ing 



SPRINT 



Error comments are given on the 
specified device 



Example: $rdn *ASMERR; SCARDS=-PTR 

(SPRINT defaults to *S1NK*) 



DescriDtion: 



*ASMERR lists on SPRINT the erroneous statements and diaq- 
nostics noted in an F-level assembly listing, if no errors 

?elpr^tr^^? t'' ^PPf°P^i^te comment is printed. SCABDS must 
rezer to a riie, not a device. 
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Name: 

Contents: 

Usage: 



LIBRARY FILE DESCRIPTION 

♦BATCH 

The object module to monitor remote batch entry. 

The program is invoked by a iHON command specifying *BATCH 
as the object file. 



Logical I/O units referenced: 



Examples: 



Description: 



SCARDS - file or device containing records to be 
entered as an MTS job. 

$EDN *BATCH 

(SCARDS defaults to *SOURCE*) 
$SDN ♦BATCH; SCARDS=AFILE 

The content of SCARDS 's reference is treated as any "batch" 
job run in MTS. A "receipt number" by which the user may 
pick up the output is returned to the user. The job's 
output may be picked up at the computing center when ready 
(at the time of this writing, usually the morning following 
its entry) and should be retrieved within one week. 

The first statement entered into SCARDS must be $SIGNON 

If SCARDS references a device (such as the user's 
terminal) , rather than a file, the following are applicable: 

1. Only 480 characters of information will be accepted 
(six 80 byte lines, twelve 40 byte lines, etc.) 

2. If a line of zero length is entered, the line pointer 
is decremented by one line, that is, the previous line 
is deleted. 
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LIBEAEY FILE DESCfilPTION 

Name: *BCDEBCD 

Contents: The object module or the BCD to EBCD conversion program. 

Purpose: Convert cards punched on an 026 card punch (BCD) to the 
equivalent card codes as if punched on an 029 card punch 

(EBCD) . ^ 

^^^9^: The BCD to EBCD conversion program is invoked by an 

appropriate HUN command specifying *BCDEBCD as the file 
where the object cards are found. 

Logical I/O units referenced: 

SCARDS BCD lines to be converted. 
SPfiINT Listing of converted lines. 
SPONCH EBCD lines resulting from the con- 
version. 

Examples: $EDN *BCDEBCD; SPU NCH=MyFILE 

(SCARDS defaults to *SOafiCE*, SPRINT to *SINK*) 

Description: The following conversion is applied to all input lines: 

BCD CARD CODE CHARACTER EBCD CARD CODE 

0-4-8 ( % 12-5-8 

12-4-8 ) a 11-5-8 

4-8 t a 5_g 

12 + S 12-6-8 

3-8 = # 5-8 

all others unchanged 

This conversion maps those characters which had a dual 
symbolism (scientific and commercial) on the 026 keypunch to 
the appropriate 02y keypunch scientific code. Note that on 
an 026 keypunch, there is no way to represent the following 
characters: 

% D a & # 

as this program will convert them to their scientific 
equivalents. 
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LIBRARY FILE DESCRIPTION 

Name: *CATALOG 

Contents: Object module of program to print a list of files for the 
current user. 

Tjsage: This file should be referenced by a $RUN command with 

♦CATALOG as the object file. 

Logical I/O units referenced: 

SPRINT List of files is put on specified file or 
device. 

Example: SRON *CATALOG 

Description: *CATALOG lists on SPRINT the name of every file belonging to 
the current user and a summary of the amount of file space 
he is using. 
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LIBRARY FILE DESCRIPTION 

Name: *COINFLIP 

Contents: The object module ot tJie Coinflip program. 

Purpose: Demonstration. 

^^^9©: The program is invoked by the conversational command: 

$RUN *COINFLIP 
Description: The program is self-describing. 
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LIBRARY FILE DESCRIPTION 

Name: *CONVSNOBOL 

Contents: A SN0B0L4 program that reads and executes SN0B0L4 state- 
ments. 

Purpose: To allow conversational use of SN0B0L4. 

Usage: This file contains commands to run the SN0B0L4 program. It 

should be specified as the source (see SSOOHCE command 
description) . 

Logical I/O units referenced: 

(Specified in $RON command in the file) 

5: Input for SN0B0L4 initial compilation 

6: Output for SN0B0L4 error comments 

8: Input of conversational SN0B0L4 statements 

9: Output of conversational SN0B0L4 statements 

Example: $SODRCE *CONVSNOBOL 

Description: The SNOBOL program in this file reads (from *HSO0BCE*) 
SNOBOL statements. If a statement is preceded by a number, 
the compiled form of the statement is stored in the element 
of the array PROG with that subscript. If the statement is 
not preceded by a number i is executed immediately and the 
code is not saved unless the statement was labeled. To 
begin execution of stored statements the user should execute 
an unconditional transfer to one of them. If the SN0BOL4 
compiler detects an error in the statement entered the 
comment "COMPILATION ERROR" is typed. When the user termi- 
nates execution (by entering an end of file) the error 
comments for the last such statement are typed. If the 
SN0B0L4 interpreter detects an error, execution is immedi- 
ately terminated with an error comment and a string dump if 
one was requested. 

Example session: (Input is underlined) 
$SO qRCE *C0NVSN0B0L 
$RUN *SN0B0La;5=*C0NVSN0B0L(3) 6=*DUHI1Y* (1 ,20) +*MSINK* 

8=*MS00RCE* 9=*MSINK* 
EXECUTION BEGINS 
SUCCESSFUL COMPILATION 
ENTER SNOBOL STATEMENTS 

OUTPUT = "HELLO" 
HELLO 
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£ (end of file) 

NORMAL EXIT FHOM SNOBOL AT LJiVEL 
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LIBRARY FILE DESCRIPTION 

Name: *DISKDOMP 

Contents: The object module o± the DASD dump program. | 

Purpose: Print the contents of specified portions of a 2311, 2314, or | 
2301 in a hexadecimal dump format. I 

Osage: The DASD dump program is invoked by an appropriate RUN \ 

command specifying *DISKDUHP as the file where the object 
cards are found. 

Logical I/O units referenced: 

SCABDS Control lines specifying the disks 
and areas on the disks to be 
dumped. 

SPRINT The dump listing. 

Examples: $EON *DISKDOMP; SCAfiDS=*SO0RCE* SPRINT=PTR2 

Description: The DASD dump program will print in hexadecimal dump format 
the specified region of any DASD . All records on the DASD 
within the specified region are printed, with the exception 
of the EO records. Each record is read with a READ COUNT, 
KEY AND DATA command, and the entire record is printed out - 
beginning with the count field. The format of each control 
line is: 

Positions Contents 

1-4 Physical DASD on which volume is mounted e.g., 
D291 e.g., D291 

5-8 Starting cylinder address in hexadecimal, e.g., 
OOAO 



9-12 Starting track address in hexadecimal, e.g.. 



0000 



13-16 Ending cylinder address in hexadecimal, e.g., 
00A5 

17-20 Ending track address in hexadecimal, e.g., 0009 

As many control lines as desired can be entered. Execu- 
tion terminates when an end-of-file condition is returned by 
SCAEDS. 
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All other processing on a DASD being dumped is locked out 
while that DASD is being printed, so that the contents being 
dumped cannot be changed in mid-dump, so to speak 
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Name: 
Contents: 
Purpose: 
Usage: 

Prototype: 
where: 

Examples: 



LIBRARY FILE DESCBIPTION 

♦DISMOUNT 

The object module ot the volume dismounting program. 

Allow users to dismount private volumes. 

The program is invoked by a run command specifying ♦DISMOUNT 
as the file where the object cards are to be found. 

$RUN *DISMOUNT; PAR=*pseudodevicename* 

♦pseadodevicename* xs the pseudo-device name specified when 
the volume was mounted. 

$RUN *DISMOUNT;PAR=*TAPE* 



Logical I/O Units Referenced; 



none. 



Description: 



The volume will be removed and (hopefully) placed in its 
appropriate spot in the storage rack. See *I10UNT descrip- 
tion for further details. If there are any outstanding uses 
of the pseudo-device name (such as SCARDS) the volume will 
not be actually dismounted until all of them are released. 

The following rules describe the interaction between 
♦MOUNT and ♦DISMOUNT. 

1. If ♦MOUNT is run (either explicitly or by calling 
MOUNT during execution) with a pseudo-device name 
specified which is already active, then the device 
type must be the same as the previous type and all 
outstanding references to the pseudo-device name will 
be changed to refer to the new volume. 

2. If ♦MOUNT is run with a pseudo-device name which has 
been previously used but for which ♦DISMOUNT has been 
run, then the new device type may be anything legal 
and any outstanding references to the old pseudo- 
device name are unchanged. In general a use of 
♦DISMOUNT signifies the end of a particular use of a 
pseudo-device name and a use of ♦MOUNT for an active 
pseudo-device name signifies a new volume for a 
previous use. 

The following example may clarify this. Suppose the 
following commands were issued during an MTS session: 

$RaN ♦MOUNT; PAB^GOOO ON 7TP PNAME=^TP+ MY TAPE 
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SRUN -OBJ; SCAEDS=*TP* 
If during execution of the program in -OBJ, *]|10UNT is callec 
(presumably by using the macro or subroutine aoUNT) and th< 
pseudo-device name *TP* is specified then the device typ€ 
must be 7TP and a new reel will be mounted on the same tap* 
drive, which SCARDS will still refer to. However if durinc 
execution of the program in -OBJ, *DISMOUNT is called foi 
*TP* and then *MOONT is called for it, the device type maj 
be any legal type, SCABDS will still refer to the old tape, 
and any new use of the name *TP* (for example as a parametei 
to GETFD) will refer to the new volume. In this cas-e the 
original tape reel will not actually be removed untiJ 
execution is terminated. 
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IIBBARY FILE DESCBIPTION 

Name: *DOOBLE 

Purpose: To generate the correct (rounded) double-precision floating 
point representation of a given decimal number. If 'x' is 
the decimal representation, then the approximate range of 
possible values of 'x» is 

.3d8E-61 < |x| < 7.21E+75 

[Note: Double-precision is not long precision] 

Usage: Input to this program is on SCARDS; output may be printed or 

punched and printed. Printed output is on SPRINT; punched 
output is on SPONCH. To specify that one wishes punched 

output, the parameter saying such should be given i.e. 

PAR=PnNCH. Any error comments (such as underflow or 

overflow) will be produced on SEBCOM' no error is fatal. 

The user inputs number (starting in column 1) in any type of 
floating point external format. Examples: 

10.1 

10.1E+0 

10.1D+0 

10.10000 

101E-1 

101-1 

10. 1-1 

All numbers (or special characters such as . , D E and + 
and -) until either a blank, illegal floating point format, 
or illegal character occurs will be taken as part of the 
input number. Output will be in the form of two hexadecimal 
numbers each sixteen digits in length. If the user 
specifies that puncned output is to be given, then the first 
15 columns after the first blank or first illegal character 
will be used as a comments field in the punched output. 
Punched output is or the form which can be input to the 
assembler i.e. 

DC X'16 digits', X' 16 digits' comments 
Examples: user input is underlined 

#$gUH *DO qBL E 
#EXECUTIOM BEGINS 
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m 10000000000000 3300000000000000 

3. 14 159 265358979323846 2ftU33H^?7q'sn9a q4 197 16790 202 PI 
413243F6A8885A30 338D3 1J198A2E037 ~~ 
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LIBKARY FILE DESCfilPTION 

Name: *DEAW 

Contents: The object module -of line drawing program 

Purpose: Allow user to create line drawings using the 2250 display 
unit. Op to 31 separate displays may be saved in a file and 
later retrieved. 

Usage: This program is invoked by an appropriate fiON command 

specifying *DRAW as the file where the object cards are 
found. 

Logical I/O units referenced: 

SCABDS file from which displays are to be 

read 
SPONCH file in which displays are saved 

Examples: $EUN *DRAM; SCARDS=DRAHING SPONCH=DRAHING 
$ilON *DRAW; SCARDS=DRAWING SP0NCH=PCH1 

Description: The user at the 2250 display console interacts with the 
*DEAW program by means of the light pen and programmed 
function keyboard (PFK) . The following keys on the PFK have 
been given the indicated meaning: 

key -> enter point-plotting mode 

key 1 -> enter basic character mode 

key 2 -> enter large character mode 

key 3 -> enter position-cursor mode 

key 4 -> enter vector-plotting mode 

key 10 -> start scan to find light pen 

key 22 -> enter erase mode 

key 30 -> read new display (via "SCABDS") 

key 31 -> save the current display (via "SPONCH") 

Pressing any other key will cause a display of these 
instructions to appear. In addition two "alternate code" 
keys have been given these meanings: 
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"cancel" -> blanJc screen in preparation for a new drawinc 

"end" -> terminate execution of the *DRAW program. 

To plot a point on the screen the user must entei 
point-plotting mode by pressing key 0- (Once a mode is 
entered, the program remains in that mode until the mode is 
changed by pressing another key) . Pressing key 10 initiates 
a display of X's. By pointing the light pen at the spot oi 
the screen where the point is to be plotted and pressing the 
light pen foot switch to activate the light pen, the usei 
"plots" the point. Successive points may be plotted bj 
alternately pressing key 10 and activating the light pen. 
To draw lines, vector plotting mode must be entered. Key 1C 
and the light pen must then be used as described above. The 
position of the ligiit pen denotes the terminal point of the 
line. The initial point of the line is the most recent 
point (or terminal point) drawn. Characters (either basic 
or large size) may be entered in the drawing by entering the 
appropriate character mode, pressing key 10 and activating 
the light pen to indicate where in the drawing the charac- 
ters are to be inserted. This causes a cursor to appear on 
the screen and up to 10 characters may be entered from the 
console. If more than 10 characters are desired, the above 
action can be repeated. To delete lines or points from a 
drawing, erase mode is entered by pressing key 22 and the 
object to be deleted is identified with the light pen. To 
delete characters, enter either erase or position-cursor 
mode and identify the character with the light pen. This 
will cause a cursor to appear beneath the character- The 
character may then be erased by pressing the space bar on 
the console. 

Displays may be retrieved or saved by pressing keys 30 
and 31. 
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LIBRARY FILS DESCRIPTION 

Name: *EBCDBCD 

Contents: The object module o± the EBCDIC-to-BCD translation program. 

Purpose: Translate lines from EBCDIC to 7090 Augmented BCD. 

Osage: This program is normally invoked with a SBDN command 

specifying *EBCDBCD as the object FDname. It can also be 
loaded and called as a sunroutine (without parameters) . 

Logical I/O units referenced: 

SCAEDS For EBCDIC lines to be translated. 

SPONCH Augmented BCD lines resulting from 
translation. 

SPRINT Listing of the lines resulting from 
translation . 

Example: $RON *EBCDBCD; SCARDS=OLDFIL£ SPUNCH=NEWFILE 

(SPRINT defaults to *SINK*) 

Description: Lines of any length are read sequentially (not indexed) from 
SCAEDS, translated, and written to SPUNCH. Each output line 
is also prefixed by a blank character (for carriage control) 
and written to SPRINT. Output lines are written sequential- 
ly unless the "indexed" modifier is used. When an end-of- 
file is encountered from SCAEDS, the program returns. 
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The following translation is applied to each character of 
line: 



each input 



1 

1 


EBCDIC input 


■> 1 

1 BCD output 1 


1 Character 
1 


Card code 


1 i 

1 . 


! Digits 






1 ^ 1 

1 Unchanged | 


1 Upper-case 


letters 


1 Unchanged | 


1 Lower-case 


letters 


1 Upper-case equivalents | 


1 Control 


characters 


1 Blank 1 


\ . , $ * 


- / ; 1 - _ " 


Uncnanged i 


1 + 




12-6-8 


1 12 1 


1 & 




12 


0-7-8 1 


1 ( 




12-5-8 


0-4-8 J 


1 ) 




11-5-8 


12-4-8 1 


1 • 




5-8 


4-8 ( 


1 = 




6-8 


3-8 1 


1 < 




12-4-8 


12-6-8 1 


1 > 




0-6-8 1 


6-8 1 


1 % 




0-4-8 1 


2-8 1 


1 « 




0-7-8 1 


12-0 1 


1 : 




2-8 j 


5-8 1 


1 # 




3-8 1 


0-2-8 1 


1 s 




4-8 1 


11-0 1 


1 All othe 

1 


rs 


_ i. 


Blank | 

^ — — — J 
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LIBRARY FILE DESCRIPTION 

Name: *FIIEDOMP 

Contents: The object module o± the file dumping program. 

Purpose: To aump the contents of a file or device in hexadecimal. 

Osage: The file-dumping program is invoked by the appropriate RUN 

command specifying *FILEDUMP as the file where the object 
cards for the file dumper are found. 

Logical I/O Units Referenced: 

SCARDS - the tile or device to be dumped 

SPRINT - the file or device where the output is to be 
placed. 

Parameters: The output on SPRINT is usually 64 columns per line; the 

user may vary the length of the output line by the use of 

the LENGTH parameter. The LENGTH may vary between 1 and 132 
inclusive. 

Examples: $RON *FILEDaMP; SCASDS=MYOBJ 

(SPRINT defaults to *SINK*) 

$RON *FILEDOMP; SCAfiDS=-OBJ SPaiNT=-PfiINI 
PAR=LENGTH=128 

Sample Run: 

$RON *FILEDaMP;SCAEDS=-FILE(1,2) 
iEXECUTION BEGINS 

**LINE-FILE DUMPER 

LINE NO. 1 ; 80 CHARACTERS 

02C5E2CU 4040 40 4040 400 030 4 04000 01C4E4D4D7C640 40 40000 0000 040 0007DC 
E2C5D9C3D6D440400200000040404040E2C3C1D9C4E240400200000040 404040 
404 04 04 040404040C4D4D7C6FOFOFOF1 
LINE NO. 2 ; 80 CHARACTERS 

2C5E2C440404040404000304 04000 04C7C5E3C6C440 40400200000040 404040 
D9C5C1C44040404002000000404040 40E2D7D9C5D5E340400200000040404040 
40404 04 0404040 40C4D4D7C6FOFOFOF2 
#EXECaTION TERMINATED 
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LIBRAEY FILE DESCEIPTION 



Contents: 
Purpose: 

Usage: 



♦FILESCAN 

The object module o£ the file scan program. 

Locates a line in a file according to a given format and 
prints the line and line number. 

The filescan program is invoked by an appropriate RUN 
command specifying *FILESCAN as the file where the object 
cards are found. 



Logical I/O units referenced: 

SCAEDS Format and file name input. 
SPRINT 



Description 



SEBCOM 



Requests and line and line number of selected 
line. 

Error comments. 



♦FILESCAN will first print "ENTER FORMAT" on SPRINT. There 
are three types of format terms: skip, transfer, and 
character string. These are entered via SCAHDS* The skip 
term consists of the letter S followed by an optional minus 
sign followed by a string of decimal digits. The value of 
the digit string is the number of columns to be skipped. 
The transfer term consists of the letter T followed by a 
string of decimal digits. The value of the digit string is 
the column in the lines of the file to be scanned where the 
next skip or character string term will start. The 
character string term is delimited by primes. The charac- 
ters in the string are compared with the appropriate columns 
of the lines of the file to be scanned. A maximum of 20 
character strings may be used in one format. If a prime is 
desired in the character string, it may be represented by 
two consecutive primes. (Note: Unless it is the last 
character in a character string, each prime reduces the 
maximum number of character strings by one.) Commas may be 
used to separate format terms, but they are not necessary. 
The format is terminated by the first blank not in a 
character string or by the end of the line. If the first 
character entered is a >, it is assumed that the characters 
immediately following name a file and that the previous 
format is to be used. If "CONTINUE" ( or "C") is entered, 
the scan is continued with the next line in the same file 
using the same format. 
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After the format is entered, *FILESCAN will print "ENTEB 
FILE NAME" on SPRINT. The file name is entered via SCAHDS 
and may be followed by a line number range and/or modifiers 
as for GETFD. The first blank or end of line terminates the 
file name. 

An end-of-file when a file name is requested will cause a 
format request. An end of file when a format is requested 
will cause termination. 

Example: If it was desired to find lines containing "LA" in columns 
10 and 11 and "R4," in columns 16-18 of the files FILE and 
FILEI, the input (underlined) and requests might be: 

#$BUN *FILESCAN 
#EXECUTION BEGINS 
ENTER FORMAT 
TIP 'LA' ,S41M^1 
ENTER FILE NAME 

114 LA K4, INPUT 

ENTER FORMAT 
CONTINOB 

123 LA 84,1 (,R4) 

ENTER FORMAT 
> FILEI 

12 LA E4,=A (WHERE) 

ENTER FORMAT 
ENDFILE 
#EXECOTION TERMINATED 
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LIBRARY FILE DESCRIPTION. 



Name: *FORTRAN 



Note: *NEWFORT rather than *FOHTRAN currently contains the FORTRAM 

G compiler. See the description of *NEWFOfiT, filed alpha- 
betically in this section. 
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LIBfiASY FILE DESCRIPTION 



Name: *FOETEDIT 

Contents: The object module of a program to convert FOBTSAN statements 
in free-format form to fixed-format form. 

Purpose: Allow user to write FOHTBAN statements in free-format form. 
The output consists of "fixed-format cards" so that they can 
be processed by the current FORTRAN compiler. 

Usage: The program is invoked by the appropriate HON command 

specifying *FORTEDIT as the file where the object cards are 
found. 

Logical I/O units referenced: 

SCASDS free-format input lines to be converted 

SPONCH fixed-format output lines for processing by FOR- 
TRAN IV compiler. 

Examples: $EON *FORTEDIT;SCAEDS=FTNPRGH SPaNCH=-PROG 

Description: Initial_lines 

If a line is the initial line of a statement, it may have 
a statement number. The first character of a statement 
number should occur within the first five columns and will 
terminate at column 6 or at nonnumeric characters (blanks 
not included) , which ever occurs first. The text of a 
statement begins just at the first nonnumeric character 

continua tion lines 

A line is a continuation line, when the last character 
(blanks included) of the preceding line was a •-'. The text 
starts with the first character. 

Com ment Li nes 

A line is a comment when the line is not a continuation 
line and the first character of the line is an asterisk 
(ii*fi) . The program will automatically produce an output 
line with a "C" in the first column. Comment lines may not 
be continued. 
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LIBRARY FILE DESCRIPTION 



Name: *GPAKDRAM 

Contents: The object module of the GPAK console modelling test 
program. 

Purpose: To allow the user to create, modify, and manipulate line 
drawings based on a ring type data structure, using the 2250 
mod I display unit. 

Osage: This file should be referenced by a $HON command, with 

*GPAKDRA3+*GPAKLIB+*GPAPHLIB as the file to be loaded. 
Loading takes a minute or two, don't be alarmed at the 
delay. Storage requirements: 40-50 pages. 

Logical I/O units referenced: None. 

Examples: $RON *GPAKDRAW+*GPAKLIB+*GRAPHLIB *SINK* 

Description: The user at the 2250 interacts with *GPAKDRAW using the 
programmed function keyboard and lightpen. For detailed 
operating instructions, see the GPAK manual. 

A summary of function key meanings follows: 

Terminate execution of *GPAKDBAtf. 

1 Delete the current picture. 

2 Get menu of old pictures. 

3 Create new picture. 
H Delete element. 

5 Degroup element. 

8 Enter new point. 

9 Draw new line from last point entered. 

11 Move element. 

12 Enter text element. 

14 Draw new line. 

15 Enter circular arc. 

22 Get more model storage. 

23 Temporarily erase element. 

24 Redisplay all temporarily erased elements. 

25 Scale or translate current picture. 

28 Enter grouping mode. 

29 Move group. 

31 Haven't figured this one out yet. (REDSP2) . 
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LIBRARY FILE DESCRIPTION 

Name: *GPAKGRID 

Contents: The object modules of the GPAK grid and plot test program. 

Purpose: To demonstrate some of the grid display and curve plotting 
facilities available in GPAK. 

Usage: This file should be referenced by a $RON command, with 

*GPAKGRID+*GPAKLIB+*GRAPHLIB as the file to be loaded. 
Storage requirements: 20-25 pages. 

Loqical I/O units referenced: 

6 - printout of diagnostic information. It is suggested 
that 6 be set to *DaMMY* 

Example: $SON ♦GPAKGRID+*GPAKLIB + *GSAPHLIB *SINK*; 6=*DUl!mY* 

Description: The user at the 2250 consoxe interacts with *GPAKGRID using 
the programmed function Keyboard and lightpen. See the GPAK 
manual P. 361 for detailed instructions. A summary of 
function key actions follows: 

Set grid type to linear-linear 

1 Set grid type to log x, lin y. 

2 Set grid type to lin x, log y. 

3 Set grid type to log-log. 

4 1x1 grid 

5 5 X 10 grid 

6 20 X 20 grid 

7 Full screen. 

8 3/4 screen, centered. 

9 3/4 screen, upper right position. 

10 Set curve plot mode to points only. 

11 Set curve plot mode to vectors only. 

12 Set curve plot mode to points plus vectors. 

13 Scissor to grid. 

14 Use full screen 

27 Fit new curve onto grid. 

28 Generate new curve. Alternates between damped sinu- 
soid and n- leafed rose. For rose, key in n, then hit 
'end'. 

29 Plot new curve (after 7-14 or 27). 

30 Display new grid (after 0-9) . 

31 Terminate run. 

Note: A 3/4 screen grid can be moved (within screen limits) by 

detecting it, then detecting new light pen position on the 
character raster which comes up. To detect, position light 
pen, push and hold down footswitch, and if nothing happens, 
hit any function key. 
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LIBRARY FILE DESCBIPTION 



Name: 
Contents: 

Purpose : 



Osage: 



Reference: 



Note: 



♦GPAKLIB 

The object modules of the subroutines of GPAK, version II 
(plus necessary LIB and BIP cards to allow one pass, 
selective loading) . 

Provides a variety of programming support for users of the 
2250 mod I display unit, including attention handling, 
display management, and modelling. The modelling routines 
are independent, and may be used to create and manipulate a 
CORAL-like ring structure even for non-2250 programs. 

These subroutines are used in conjunction with a user 
written graphics application program, which may be written 
in G-level FORTRAN IV, or in assembly language. *GPAKDfiAW 
and *GPAKGRID contain the object modules of two such graphic 
application programs. 

S/360 General Program Libarary, manual no. 360D-3. 4.005: 
"GPAK: an online system 360 graphic data processing package 
with real time 2250 input and display. " This manual 
contains detailed descriptions of all the subroutines, 
sample programs, operating instructions, and programming 
assistance. 



♦GPAKLIB contains all 
version II release (exc 
diagnostic subroutines 
Some routines have been 
tape versions to mak 
should be no significan 
level. Some of the 
the OS express graphics 
which are available to 



the subroutines supplied in the GPAK 

ept for GBDOHP, DDFFER, and PATCH - 

not described in the GPAK manual). 

modified slightly from the release 
e them compatible with MTS, but there 
t difference in behavior at the user 
GPAK subroutines call on a version of 

routines and IBM written "POfiS", 
HTS users in *GRAPHLIB. 
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LIBRARY FILE DESCRIPTION 

Name: *GRAPHLIB 

Contents: The object modules of part of the OS express graphic support 
package for the IBM 2250 mod I, modified (where necessary) 
to work under MTS. File includes necessary LIB and RIP 
cards to allow selective, one-pass loading. 

Purpose: Contains open, I/O, and attention handling routines for the 
2250, and order generation routines for certain kinds of 
plots, grids, labels, and arcs. 

Tjsage: These routines are used by GPAK (see ♦GP&KLIB) , and may 

(with caution - see note below) be called by any program 
needing the facilities of OS express graphics support. 

Description: The following is a list of the subroutines contained in 
♦GRAPHLIB, with a brief description of each: 

GSTOH store graphic orders 

GCPRNT display character information 

GARC generate arc with points 

GSPLOT plot with points 

GCGRID generate Cartesian grid 

GVARC generate arc with vectors 

GSVPLT plot with vectors 

GLABEL label a graph 

GPGRID polar grid with points 

GPVGRID polar grid with vectors 

GOFFSG check for off screen condition 

ANIZ analyze attention information 

GIOCR graphic I/O control routine 

GOPEN graphic open routine 

i^ote- The MTS compatible version of OS express graphic support for 

the 2250 contained in *GRAPHLIB and ♦GRAPHMAC was designed 
to be minimally sufficient to assemble and run GPAK. Its 
general utility is untested, but it is thought that most 
usages of express graphics will transfer ok. The two 
important behavioral changes of the MTS version are 1) only 
one DCB may be open at a time (e.g. one cannot run both the 
2250 and a printer as OS data sets simultaneously) and 2) 
attentions from the 2250 are handled on an interrupt rather 
than a polling basis (when ANLZ is called, it does not 
return until an interrupt has occurred) . 

i^eference: IBM SRL C27-5921 "IBM System/360 Operating System: express 
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graphics programming services for the IBM 2250 Display Unit, 
Model I." 

For detailed information on the OS versions of the open, 
attention handling, and I/O routines, see IBM PLM Y27-7113 
"IBM System/360 Operating System: Graphics Access Method". 
This graphic access method has been revised and condensed 
into the three routines ANLZ, GOPEN, and GIOCB. The other 
subroutines in *GRAPHLIB are unchanged from the OS versions. 
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LIBEAHY FILE DESCBIPTION 



Same: 
Contents: 

Osage: 

Example: 
Description; 



?Iote: 



Reference; 



♦GRAPHMAC 

A library of macros useful in programming for the IBM 2250 
mod I display. 

This file is in the form of a standard MTS macro library. 
Its name may be given as a macro library parameter to the 
assembler. 

$RON *ASl!lBLfi;SCARDS=PEOGB 0=*SISHAC 2=*GEAPHMAC PAB=CON 

This file contains a variety of graphic order generating 
macros, some graphic I/O macros which are needed by OS 
express graphics, and four special macros needed to assemble 
GPAK subroutines. 

An exact list of the macro names can be obtained by listing 
the initial segment of this file (line numbers 1.0 thru 
5.0) . 

This file contains special versions of OPEN and STIMEB. 
STIMEE has been changed to a dummy, and OPEN is for graphic 
DCBs only. 

IBM SRL C27-6921 "IBM System/360 Operating System : express 
graphics programming services for the IBM 2250 display unit, 

model I." 
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LIBRAEY FILE JDESCBIPTION 

Name: *HEXLIST 

Contents: The object module o± the hexadecimal card lister 
Purpose: To list cards (usually object cards) in hexadecimal 
'Jsage: This module is invoiced by the appropriate run command. 

Logical I/O units referenced: 

SCARDS Where the file names are to come 
from 

SPRINT Where the listing is to be done 

Examples: $RDN *HEXLIST 

(SCARDS defaults to *SOOSCE*; SPRINT to *SINK*) 

Description: The output format is: 

Line 1: The card number (advanced by 1 for each card 
read), the UTS file sequence number (line number), 
the card I.D. (columns 73-80 of the card), column 
1 of the card (in hexadecimal) , columns 2-4 in 
EBCDIC 

Line 2: Columns 5-38 in hexadecimal 

Line 3: Columns 39-72 in hexadecimal 



*HSXLIST is interactive in the same way as 
*OBJSC&N is. 



Sample output: 



$RUN *HEXLIST; SCAEDS=*SOnRCE* SPRINT=*SINK* 

#EXECOTION BEGINS 

READY! 

HXL (83 .24 .83. 24) 

CARD NO. 1,FILE SEQ. NO. =83. 24 , CARD ID=HX1 0003, 02 , TXT 

400000E0404000384040000147FOAOD4418411F2444 20A2PED202A39BA309F321A1D4 
A308DC01MD4A2BED201A397A1D4411GA3A058FOA41005EFF3E7A1D4A30CF3E7A1E23 
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LIBRARY FILE DESCRIPTION 

Name: *IHC 

Contents: Error descriptions for the error numbers produced by the 

Fortran library subroutines- 
Usage: Line xxx of *IHC contains the description of error number 

IHCxxx. Hence if Fortran tells the user "IHC232I", then 

doing 

$COPY *IHC(232,232) 

will bring forth an explanation of that error comment on his 
terminal. 
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LIBRARY FILE DESCRIPTION 

Name: *LINPG 

Contents: Object module of a calling program and the subroutine LINPG 

Purpose: Provide a convenient way to solve linear programming prob- 
lems. 

Usage: The calling program is invoked by using a JRON with *LINPG 

as the object file. 

Logical I/O units referenced: 

SCARDS Where the data values are to be found 

SPRINT Where the results are put 

?:xamples: $RUN *LINPG 

SRON *LINPG; SCARDS=DATA 

Description: Read the description of the subroutine LINPG. Values for M, 
N, M2, N2 using the IOH360 standard format 41* are read in 
followed by values for the A array on the next card or line 
which are read in row by row using the IOH360 standard 
format 42F*. An example problem and the associated data: 

maximize X + 2X + 3X -X 
1 2 3 4 

subject to X + 2x + 3x =15 
12 3 

2x + X + 5x =20 
1 2 3 

X +2x + X +x =10 

1 2 3 4 



2. 1. 5. 0. 20. 1. 2. 1. 



The calling program interprets the switch returned by LINPG 
and prints the appropriate comments and results. See the 
description of the subroutine LINPG (in section IlTS-253) for 
further details. 



The data: 








4 5 3 








1. 2. 


3. 


0, 


15. 


10. 








-1. -2. 


-3. 


1. 


0. 
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Wame: 

Contents: 

Usage: 



LIBRABY FILE DESCRIPTION 

♦LISTVTOC 

Object module to print out a list of files. 

This file should be referenced by a $RUN with *LISTVTOC as 
the object file, and (optionally) the SCABDS source. 



Logical I/O units referenced: 



Examples: 
Descriotion: 



SCARDS Gives serial numbers of 
(optional) disk packs whose files are to be 
listed 



SPRINT Catalog listing 
specified device 



is given on the 



$RDN *LISTVTOC; SCARDS=EDHU SPRINT=PTR1 

♦LISTVTOC lists on SPRINT the names of all the files 
allocated on the disk pack whose six-character volume serial 
number (name) is given in columns 1-6 of each input card (or 
line) . An end-of-file causes a terminal exit, and request- 
ing a non-existent or unmounted disk pack will generate an 
error message. 

For input from SCABDS, if columns 7-10 are non-blank (if 
any one of them is non-blank) they are assumed to constitute 
a one to four character prefix and initiate a "selective 
catalog" print - i.e., only those files whose names begin 
with that prefix are printed. 

If column 11 contains an X then the output is in 
hexadecimal; if it contains T then the files of the current 
user are listed by name only. 
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LIBEARY FILE DESCRIPTION 



Name: 

Contents: 

Purpose: 

Osage: 

Prototype; 

Sxamnles: 



Parameters: 



♦MOOJIT 

The object module of the volume mounting program. 

Allow users to mount private volumes and attach certain 
attributes to those volumes. 

The program is invoked by a run command specifying *MOaNT as 
the file where the object cards are to be found. 

$RUN *MOONT; PAR=vol.i.d. [ON] devicetype, 

[ PNAME= ]*pseudodevicenaffle*, [ MODE^mode , ] 

[ SIZE=max. rec.size, ] 

' volumename' [, comments to operator] 

$RON ♦MOUNT; PAR=M0O0 ON 9TP,PNAaE=*TEST*, SIZE=512, 
•TAPE TEST T, RING IN 

$RON *MOONT; PAE=M001 7TP *TEST2*, M0DE=8CV, 
•TEST 2* , RING OUT 

yol.ij.dj. is the 4 cha racter rack number at the computing 
center in which the volume is stored. 

devicetype is the type of device on which the volume is to be 
mounted. Currently 7TP and 9TP are supported. 

♦pseud odey icename* is the pseudo-device name by which the 
volume will be referred to in data accesses. 

mode is the mode in wiiich the volume was or is to be written. 

size is the length in bytes of the longest possible record on 
that volume. 

volumen ame is the identifying name associated with the volume. 
This name should be written upon a paper label and attached to 
the volume when it is first submitted to the computing center. 

comments are specifications as to ring in or ring out, as well 
as any special directions to the operator. 



logical I/O Units Referenced: 
Description; 



none. 



A comment will be printed on the operator's console requesting 
that he mount the specified volume on the specified device 
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type. If he is able to comply, the comment "OK" will be 
printed on the master sink device. If he is not able to mount 
the volume, a message from the operator explaining the problem 
will be printed on the master sink device. Volumes mounted in 
this way will automatically be removed when a second volume is 
mounted with the same pseudo-device name and when the user 
signs off. 

The following rules describe the interaction between *MODNT 
and *DISMOONT. 

1. If *aODNT is run (either explicitly or by calling MOUNT 
during execution) with a pseudo-device name specified 
which is already active, then the device type must be 
the same as the previous type and all outstanding 
references to the pseudo-device name will be changed to 
refer to the new volume. 

2. If *MOUNT is run with a pseudo-device name which has 
been previously used but for which *DISaGUNT has been 
run, then the new device type may be anything legal and 
any outstanding references to the old pseudo-device 
name are unciianged. In general a use of *DISMOUNT 
signifies the end of a particular use of a pseudo- 
device name and a use of *MOUNT for an active pseudo- 
device name signifies a new volume for a previous use. 

The following example may clarify this. Suppose the 
following commands were issued during an MTS session: 

$RUN *I100NT; PAfi=GOOO ON 7TP PNAME=*TP* MY TAPE 

$RUN -OBJ; SCAEDS=*TP* 
If during execution of the program in -OBJ, *MOUNT is called 
(presumably by using the macro or subroutine MOONT) and the 
pseudo-device name *TP* is specified then the device type must 
be 7TP and a new reel will be mounted on the same tape drive, 
which SCAEDS will still refer to. However if during execution 
of the program in -OBJ, *DISMOUNT is called for *TP* and then 
♦MOUNT is called for it, the device type may be any legal 
type, SCAEDS will still refer to the old tape, and any new use 
of the name *TP* (for example as a parameter to GETPD) will 
refer to the new volume. In this case the original tape reel 
will not actually be removed until execution is terminated. 
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LIBRABY FILE DESCRIPTION 



Name: *NEWFOfiT 

Contents: The object module for lEYFOET, the FOETEAN G control module, 
followed by the most recent IBH releases of the other six 
object modules that constitute OS FORTRAN G. 

Purpose: Batch compilation of IBM/360 FORTRAN IV (refer to FORTRAN IV 
LANGUAGE, SRL C28-6516-4) source modules- The compiler can 
produce a source listing, storage allocation map, object 
listing, load module and/ or object deck according to the 
options specified. The default options are: SODECE, MAP, 
NOLIST, LOAD, NODECK, EBCDIC, NAME=MAIN, LINECNT=57. 



Osage: 



The compiler is invoked by a RUN command with an 
of *NEWFOfiT. 



objectFDname 



Logical I/O units referenced: 

SCARDS source modules 



SPRINT source, map and object listings 

SPUNCH card deck version of object module. The deck 
will have ID in columns 73 to 80 consisting 
of the first four characters of the program 
name followed by four digits — 0001,0002,... 



object module suitable for use 
objectFDname in a RUN command. 



as 



the 



Scratch Files Referenced; 



-T# 



temporary file used by the compiler if the 
LOAD and/or DECK options are specified, con- 
taining information of no real value to 
anybody but FORTRAN. 



Examples: 



$RUN *NEWFOET; SCARDS=XSOUECE 0=-LGADMOD PAE=NOSOOECE,NOMAP 

$RON *NEWFORT; 0=-LOADaOD 

(SCARDS and SPRINT default to *SOURCE* and *SINK*) 

$RON *NEWFOBT; PAR=NOS00RCE, NOMAP, NOLOAD 



Description: 



If the compiler runs to completion without finding any phase 
1 errors (IEY001 to IEY018I,IEY032I) or if only phase 2 
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errors (IEY019I to IEY026I) are detected the compiler will 
terminate with the singular comment (produced by the system) 
EXECUTION TERMINATED. If a phase 1 error (s) was detected 
this comment will be preceded by the line: 

***** FOETEAN EETORN CODE d 

where d will be 0,4 or 8. Associated with each phase 1 
error is a completion code of 0,4 or 8; it is the completion 
code corresponding to the most severe error that is given. 
There are five error conditions which may occur during 
compilation from which the compiler cannot recover. These 
will occasion the comment: 

***** FOETEAN EETORN CODE d 

where d=2,3,5,6 or 7. Subsequent to the printing of this 
comment the compiler will immediately call ERROR. 

News of compiler changes, both internal and external, and 

compiler errors may be found in the system file 

♦FOETRANNEWS. A Copy may be most conveniently obtained by 
issuing a 



$COPY *FOETRANNEWS TO *SINK* 



command. 



If parameters are to be given, the PAE= must be the last in the sequence of 
specifications as shown in the examples. A description of the options 
follow. 

The FORTRAN IV language is described in "IBM SYSTEM/360 FORTRAN IV 
LANGUAGE", form C28-6515. The entire library as described in "IBM 
SYSTF?l/360 OPERATING SYSTEM: FORTRAN IV, Library Subprograms", form 
028-6596, is available and subroutines will be automatically loaded with 
the object module if required. 

Note: The source file must be terminated either by an end-of-file or by a 

SENDFILS command. 



COMPIL ER O PTIONS 

Options may be passed to the compiler through the PAR parameter in the 
RUN command, e.g., (default options are underlined). 

SOURCE MAP LIST DECK LOAD BCD 
$EUN *NEWFOET; PAR=NOSOOECE, NOMAP, NOLIST ,Np p ECK, NOLOAD, EBCDIC , 

NAME=MAIN, LINECNT=57 

These options may be specified in any order. If both the positive and 
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negative option are given, e.g., LIST,N01IST, the NO- overrides the 
presence of the positive version. The last occurrence of the NAME and 
LINECNT keywords will be the effective ones. 

S ODSCE or NOSOURC E: The SOURCE option indicates that the source 
statements are to be written to the logical device SPRINT. 

MAP or NOMAP ; The MAP option specifies that a table of names, which 
appear in the object module, is to be written to the logical device 
SPRINT. The type and location of each name is given. The seven types 
distinguished are: COMMON variables, EQUIVALENCE variables, scalar 
variables, array variables, subprogram names, NAMELIST variables, and 
FORMAT statements. 

L IST or NOLIST: The LIST option indicates that the object module 

listing is to be written to the logical device SPRINT. (The 

statements in the object module listing are in a pseudo assembly 
language format.) 

D ECK or NODECK ; The DECK option indicates that the object module is to 
be written to the logical device SPUNCH in card deck form. The deck 
will have ID in columns 73 to 80 consisting of the first four 
characters of the program name followed by four digits 
0001,0002, 

LOAD o r NOLOAD : The LOAD option indicates the the object module is to 

be written to the logical device 0- This is a more compact version of 

the object module than that available on SPUNCH. The object module is 

written as a sequence of variable length records containing from 16 to 
72 characters. No extraneous information is written. 

BCD or EBCDIC; The BCD option indicates that the source statements are 
written in Binary Coded Decimal; EBCDIC indicates Extended Binary 
Coded Decimal Interchange Code, i.e., 026 versus 029 generation. 
Intermixing of BCD and EBCDIC in the source module is not allowed. 
The occurrence of the EBCDIC option overrides the presence of the BCD 
option. CAPTION ; If the EBCDIC option is selected, statement numbers 
passed as arguments must be coded as Sn. If the BCD option is 
selected, statement numbers passed as arguments must be coded as $n 
and the $ must not be used as an alphabetic character in the source 
module. (n represents the statement number) 

N AME=xxxxxxx x; The NAME option specifies the name (xxxxxxxx) assigned 
to a module (main program only) by the programmer. If the name is not 
specified or the main program is not the first module in a compila- 
tion, the compiler assumes the name MAIN for the main program. The 
name of a subprogram is always specified in the SUBROUTINE or FUNCTION 
statement. The name appears xn the source, map, and object module 
listings. 

L INECNT=xx ; The LINECNT option specifies the number of lines that will 
be written between page headings on tne logical device SPRINT. If 
this parameter is not specified, the system default will be used. 
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The SOURCE, HAP and LIST options all cause output to the logical device 
SPRINT. This output is always written in the order just given, i.e., the 
source statements, the map, and finally the object module listing. The 
object module produced on SPONCH (the DJECK option) requires about 25% more 
file space than the object module produced on (the lO&D option) . 

Note: The FORTRAN user's guide and a list of FORTRAN error messages will be 
found in section HTS-520. 
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LIBRARY FILE DESCBIPTION 



Name: 

Contents: 

Purpose: 

Osage: 
Description; 



Examples; 



♦OBJSCAN 

The object module of the object-scan program 

To give an edited accounting of the contents of a object 
file. 

The object-scan program is invoked by the appropriate run 
command specifying *OBJSCAN as the file where the object 
cards (for the OBJSCAN program) are found. 



The object-scan 
edited account of 
looks at the se 
obtains from the o 
it will print o 
change; for exampl 
"ESD" and "TXT" 
card, etc. The pr 
ending line numbe 
is made through 
"SCAEDS". In addi 
breaks occur, th 
block of cards hav 
printed along with 
columns 73-80) . 
each edit is fi 
inviting the user 



program reads an object file and gives an 
What is in that file. The program only 
cond through fourth bytes of each image it 
bject file in order to make its decision; 
n "SPRINT" the "BREAKS" when columns 2-4 
e it will tell where the break is between 

object cards, between "RLD" and the "END" 
ogram will ask the name and beginning and 
rs of the file to be scanned; this request 
"SERCOM"; the reply is made through 
tion to printing out on SPRINT where the 
e beginning and ending line number of a 
ing the same characters in columns 2-4 are 

the id field of such line numbers (i.e. 

At the beginning of the program and after 
nished, "READY" will be printed, thus 
to enter another file or device. 



$RDN *OBJSCAM 

(SCARDS, SPRINT, SERCOM default to *SO0BCE*, *SINK*, 
♦MSINK*, resp.) 

$RDN *OBJSCAN SPRINT=PTRFIL 
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Example of usage. The information input by the user is underlined. 



»35gUK »OBJSCAN 
♦EXECUTION BEGINS 
READY! 



*IEOASM 














"SSD" 


IN LINE 


NO. 


1 


ASM 


0001 




"TXT" 


IN LINE 


NO. 


2 


ASH 


0002 


THBO LINE NO. 


"ELD" 


IN LINE 


NO. 


12 


ASM 


0012 




"END" 


IN LINE 


NO. 


13 


ASH 


0013 




"ICS" 


IN LINE 


NO. 


14 








"IDT" 


IN LINE 


NO. 


15 








READY! 















11 ASM 0011 
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LIBRAfiY FILE DESCfilPTION 



Name: 
Purpose: 

Contents: 
^sage: 



♦OSMAC 

To enable OS users to assemble theix programs in MTS. Tiiese 
programs must not be run under MTS. 

The macro library from IBM's Operating System, Reference is 
"IBM System/360 Operating System: Supervisor and Data Man- 
agement Macro-Instructions", form C28-6647. 

This file should be specified for logical I/O unit when 
running the assembler. 
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LIBSARY FILE DESCBIPTION 

Name: *PAL8SS 

Contents: Object module to convert PDP-8 binary paper tapes to PDP-8 
load card format. 

Osage: *PAL8SS is used to convert PDP-8 paper tape programs into a 

form suitable for use in the PDP-8 simulator or for use in 
PDP-8 systems with card readers. 

Logical I/O units referenced: 

SCARDS Source of paper tape images 
SPONCH Sink for binary load cards 

Examples: $RDN *PAL8SS; SCARDS=TAPESOUBCE SPONCH=CARDSINK PAR=10 
$RDN *PAL8SS; SCAEDS=*PAPEfiTAPERDR*2)BIN 

Parameters: The parameter represents the starting address in octal of 
the program. After all of the tape has been converted to 
cards a transfer card will be produced directing the card 
loader to transfer to the program at the assigned location. 
If no parameter is present is assumed. For a complete 
description of the binary card formats see the BASS writeup 
(MTS-590) . A description of the paper tape formats may be 
found in the appropriate DEC literature. 

Note: Both the input and output FDnames refer to entities which 

must have binary attribute associated with them. Thus if 
TAPESOOECE is an intermediate file, $COPY *PAPERTAPEEDfi*aBIN 
TO TAPESOORCE would load it properly. Similarly $COPY 
CARDSINK TO *PaNCH*aBIN would punch the output. *PAL8SS 
both reads and puncnes o-BIK, tnus there is no need to 
explicitly attach the binary modifier to SCARDS and SPUNCH. 
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LIBBABY FILE DESCBIPTION 

Name: *PIL 

Contents: Object module of the PIL (Pitt Interpretive Language) 
interpreter. 

Osage: This file should tte referenced by a $BUN command. This is 

an interactive program designea to be used from terminals; 
use in batch is possible but of marginal utility. 

Logical I/O units referenced: 

SCAEDS - input to PIL 

SPRINT - output from PIL 

Example: $RON *PIL 

(SCARDS and SPRINT default to *SO0RCE* and *SINK*) 

Description: See the PIL writeup in section MTS-550 of this manual. 
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LIBRARY FILE DESCRIPTION 

Name: *P10T 

Contents: Object module to produce plots of points. 

Usage: This file should be referenced by a $RON with *PLOT as the 

object file. 

Logical I/O units referenced: 

SCARDS Where the points and the parameter are to be 
found. 

SPRINT Where the plot is put. 

Examples: $RDN *PLOT; SCARDS=*SOOKCE* PAS=HSBH=9,- 
LABEL='EXPERIHENT 1" 

$RDN *PLOT;SCARDS=DATAFILE SPfiINT=PTHFILE - 
PAR=NSBH=9,NVL=11,L0G=1,LABEL='C0ST OF LIVING" 

Description: The user is asked to enter the number of points he wishes to 
plot followed by the points themselves. Each point is given 
by its abscissa and ordinate. The points (1,2.5), (2.1,4.6) 
would be entered as 1 2.5 2.1 4.6. After the plot has 
been produced, the user is asked whether he wishes to plot 
again. By specifying new parameters beginning in column 1, 
a new plot of the same points will be produced. If NEW is 
included in the specifications, the user will be asked to 
supply a new set of points which will then be plotted. 
Execution will be terminated by putting an S in column 1. 

The parameters are: 

SHL=nn The number of horizontal lines, nn>2 

NSBH=nn The number of spaces between horizontal 
lines, nn>1. 

NVL=nn The number of vertical lines, nn>2 

]SSBV=nn The number of spaces between vertical 
lines, nn>1. 

LABEL=' label' A vertical label centered along the left 
side of the graph. 
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NEW 



New points are to be used in the next 
plot, or if in function mode, a new file 
name will be requested. 



LOG=nn 



XL=x 



nn=0 Plot is linear on both axes 

nn=1 The Y axis is scaled logarithmi- 
cally 

nn=2 The X axis is scaled logarithmi- 
cally 

nn=3 The X and Y axes are scaled logar- 
ithmically 

Instead of supplying points, the user is 
asked to specify the name of a file 
containing a FORTRAN compatible func- 
tion. This function will be called to 
produce points in the interval [XL,XR]. 
Values for XL and XR should be specified 
at the same time that F is given. The 
object records in the file must end with 
an LDT record, with the function entry 
point specified. (See the Dynamic Load- 
er writeup) 

The left boundary value of the plot if F 
is used. 



XR=x 

NOF 

CHAfi=c 

Y 

yH=y 

YL=y 

R 

NOR 
NOY 



The right boundary value of the plot if 
F is used. 

The function feature is turned off. 

The plotting char is set to c 

If F is set, the user sets up values for 
YH and YL 

The highest value of the function that 
is plotted. 

The lowest value of the function that is 
plotted. 

The X and Y coordinates are inter- 
changed. 

The R feature is turned off. 

The entire function is plotted. 
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OMIT=nn 



This will cause the deletion of any of 
the following parts of the graph depend- 
ing on the value of nn. 

1 Delete X grid values 

2 Delete Y grid values 

4 Delete the last graph line 

Several parts may be deleted by setting 
nn equal to the sum of the numbers 
corresponding to the parts. For exam- 
ple, nn=7 would cause all three parts to 
be omitted. If one or more functions 
are to be restored, nn should be set to 
the negative sum of the numbers. For 
example, nn=-3 would restore the X and Y 
grid values. 



The default cases for the parameters are; 



NHL=6,NSBH=1,NVL=6,NSBV=9,LABEL=« • , 10G=0,NOF,CHAR=*,N0Y 
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Example of usage of *PLOT: 

In the following example, characters that the user typed in have been 
underlined to make it easier to follow. 

# $RUN *PL OT 
#EXECUTION BEGINS 
HOW MANY POINTS ARE TO BE PLOTTED? 
3 

ENTER ABSCISSA AND ORDINATE OF EACH POINT 
1. 1. 2. 2. 3. 3. 

3,000 + + + + + * 

I I II I I 

2.600 + + + + + + 

I I I I I I 

2. 200 + + + + + + 

I I 1*1 I I 

1 . 800 + + + + + + 

I I I I I I 

1.400 + + + + + + 

I I I I I I 

1 .000 * + + + + + 

1.000 l.aOO 1.800 2.200 2.600 3.000 
IF YOD WISH TO PLOT AGAIN WITH DIFFERENT PARAMETERS, 
POT THEM IN COLDHN 1 
OTHERWISE PUT AN S IN COLUMN 1 
NHL=2 . NVL=2 . LABEL= ' I ' . NSBy=4 

3.000 + ♦ 

L 1*1 

1.000 * + 

1.0003.000 
PUT PARS OR S IN COLUMN 1 
S 
♦EXECUTION TERMINATED 
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LIBRARY FILE DESCRIPTION 

Name: *ROSSPRINT 

Contents: Object module to print the upper/lower case print tapes 
(ROSS print tapes) produced by TEXT90. 

'Jsage: This file should be referenced by a $RON with *ROSSPfiINT as 

the object file, SPRINT as output, and SCABDS as the input | 
tape. ' 

Logical I/O units referenced: 

SCARDS The input tape (ROSS print tape) I 

SPRINT The writeup which is output is 
produced on the specified device. 

Examples: $RUN *ROSSPRINT; SCARDS=*TAPE* SPRINT=PTR1 PAR=OC,DBL 
$RUN *ROSSPRINT; SCAfiDS=T0C1 SPSINT=PTR3 PAR=NOCTL 
$RON *ROSSPRINT; SPfiINT=GFILE SCARDS=*IN* 

Note: Output put in a file should be later printed with applica- 
tion of the machine carriage control modifier. For example: 

JCOPy OFILE TO PTRiaUCC 

Description: This program prints the special 1401 BOSS output tape (also 
called the upper/lower case print tape) produced by TEXT90 
as modified for U. of M. use. Specifically, the tape is 
written in high (li>56 BPI) rather than low density, and the 
self-loading 1401 program and trailing tape mark are omit- 
ted, [i.e., the data is the first file on the tape, not thei 
second. ] The output can be printed single or double spaced, 
with or without the TEXT90 control fields (for editing 
purposes) , can include all pages in the document or only 
those pages which were changed during the TEXT90 run, and 
can print with full character set or can map lower case 
letters into upper case letters so a test print can be made 
on a printer without installing the TN print train. These 
options are controlled by the use of parameters in the 
PAR= field of the $KUN command. 

For normal usage (unless DC has been specified) the TN 
print train should be installed and the OCS buffer loaded 
appropriately (via the TN program in OMMPS) . 
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The character s 
slightly from that 
used to print TEX 
up arrow, carat, a 
available. Cent 
and superscript pi 
parenthesis are 
Accordingly, the f 
be made to the spe 



et available on the TN print train differs 
used on the special 1401 chain originally 
T90 BOSS tapes. Specifically, left arrow, 
nd subscript 1, 2, 3, and n, are not 
sign, square block, logical not, pillow, 
us, minus, left parenthesis and right 
available on the TN train in their place, 
ollowing substitutions for graphics should 
cial-character notation in using TEXT90: 



1401 ROSS Chain 



TN train 



TEXT90 notation 



t (up arrow) 





/c 


— (left arrow) 


■ (sguare block) 


/I. 


A (carat) 


-1 (logical not) 


//c 


subscript n 


superscript right 
parenthesis 


//N 


subscript 1 


superscript plus 


//I 


subscript 2 


n (pillow) 


//2 


subscript 3 


superscript left 
parenthesis 


//3 



The following sub-fields are valid in the PAR= field of 
the SRUN command. Illegal sub-fields are ignored. Default 
assumptions for each pair are underlined. All are optional. 
Order of occurrence does not matter. 



SNGL 
DBl 

CTL 

NOCTL 



lii 
CHNGD 



OC 



Output will be single spaced. 
Output will be doubled spaced 

TEXT90 control fields and exception listings 
are printed. 

TEXT90 control fields and exception listings 
are not printed (used for making final copy 
for reproduction or distribution) 

All pages in the document are printed. 

Only those pages altered in the TEXT90 run 

are printed. 

Maps all lower case letters to upper case 
letters so a non-TN train may be used. (is 
normally off) 
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LIBRARY FILE DESCRIPlflON 



Name: 

Contents: 

Purpose: 



*SDS 

The object module o± the Symbolic Debugging System program. 

To aid in the development and checkout of assembly language 
programs. 



Usage: SDS is invoked with an appropriate RON command. 

Logical I/O units referenced: 

SCAHDS The source from which SDS reads its commands. 

SPRINT SDS messages and diagnostics. 



Examples: 



$RON *SDS 

$RDN *SDS; SCARDS=COMS SPRINT=DIAGS 



SDS USER 'S GU IDE 

SDS is a program checkout system which allows the assembly language 
programmer to debug his programs conversationally (i.e., from a remote 
terminal.) Using the SDS command language, the programmer initiates 
execution of his program and interrupts it at specified break-points, where 
instructions and data may be displayed and modified. 

I . Program Preparatio n 

SDS processes object programs produced by the MTS Assembler. The 
specification, PAR=TEST must be set when a program to be tested by SDS is 
assembled. This specification causes the assembler to include a symbol 
table with the object deck it produces, thus allowing the user and SDS to 
reference the program symbolically. The Loaaer will unconditionally ignore 
the symbol table when it goes to loaa the program. 

II. I nvok ing SDS 

SDS is Invoked with a $RON *SDS command. When execution begins, SDS 
types: 

+ENTEE OBJECT FILE SAME. 
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The user responds by entering the name of the file (or concatenated file 
name) containing the object program to be tested. If multiple control 
sections are loaded as one or more assemblies, the first control section 
loaded will become the current CSECT (see SCSECI command.) When the user's 
object program has been .loaded, SDS types: 

+READY 

at which point the user may type in his first command. In general, SDS 
signals its readiness to accept a command by typing the prefix character, 
"+", in column one. This same prefix character precedes all SDS messages 
and diagnostics. 

III. Command Lan g ua ge Spe cifications 



The user c 
entering com 
do something 
instructions 
of memory 1 
"break-points 
user at strat 
dollar sign f 
or more para 



ommunicates with SDS through the SDS command language by 
mand lines from his terminal. A command is a request that SDS 
with the program to be tested: for instance, ^DISPLAY displays 
and data on the user's terminal; JMODIFY alters the contents 
ocations or the arithmetic registers; $BBEAK enters 
into the user's program in order to return control to the 
egic points in his program. Every SDS command begins with a 
ollowed by three or more alphabetic characters. A list of one 
eters usually follow each command. 



A parame ter is a means of referencing specific locations (loaded 
addresses) in the program being tested with SDS. The command language 
includes two types of parameters: simple parameters and block parameters. 
A simp le par a mete r is any of the following: 

(1) a label in the label field of an instruction, DC or DS statement; 
a label created by the SLABEL command. 

(2) a relative address in the form of an unsigned hexadecimal 
constant. 

(3) a label or a relative address plus or minus a hexadecimal constant 
called the displacement. The displacement is the number of bytes 
following or preceding the location specified by the label or 
relative address. 

(4) a label or a relative address immediately followed by a parenthe- 
sized subscript, i, representing the ith assembled element beyond the 
label or relative address. The subscript is assumed to be an unsigned 
decimal integer. 

(5) a subscripted label or relative address followed by a displace- 
ment. 

A b lock parameter consists of a simple parameter followed by three 
periods (an ellipsis) followed by a second simple parameter. The loaded 
address corresponding to the first parameter must be strictly less than the 
loaded address corresponding to the second parameter. 
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It is frequently necessary 
hexadecimal constant. Por instan 
be the label, ABC or the co 
interpretation is intended, the s 
constant. In the previous ex 
constant. This explicitness is n 
labels and relative addresses ap 
displacements are hexadecimal and 
the first character of a relativ 
not be specified. 



to distinguish between a label and a 
ce, the string of characters, "ABC", could 
nstant, ABC (base 16) . When the latter 
urfix, "3)X", must be appended to the 
ample, we would have "ABCax" for the hex 
eeded specifically to distinguish between 
pearing in SDS parameters; SDS assumes all 
all subscripts are decimal integers. If 
e address is numeric (0,1,..., 9) "aX" need 



The following assembly language program will illustrate the use 

parameters: 



of SDS 



000000 


PROG 


START 









USING 


*,15 


000000 




1 


1,ALPH'A 


OOOOOtJ 


AD 


A 


1,C 


000008 




ST 


1, ALPHA 


oooooc 




L 


10, VSYS 


000010 




BR 


10 


ooooia 


ALPHA 


DC 


FMO' 


000018 


VSYS 


DC 


V (SYSTEM) 


00001C 


C 


DC 


F'20' 


000020 


GAMMA 


DS 


20F 


000070 


DELTA 


DC 
SND 


2PM, 22, 3333," 



Following is a ] 


List of SDS 


addresses: 




PARAMETEE 


ADDRESS 


AD 


000004 


VSYS 


000018 


C 


00001C 


70 


000070 


C3X 


OOOOOC 


AD+4 


000008 


VSYS-10 


000008 


VSYS-A 


OOOOOE 


20 + 4 


000024 


C + C 


000028 


cax+c 


000018 


ALPHA (1) 


000018 


10(2) 


000018 


PROG (7) 


000018 


DELTA (3) 


000076 


70(2) 


000073 


C(1) 


000020 


cax (1) 


000010 


GAMMA (1) 


000023 



a list of SDS parameters and their corresponding relative 
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PR0G(1)+4 OOOOOa 

C5)X(1)-4 OOOOOC 

ALPHA. . .DELTA 000014. .. 00007 

AD+4. . .C«DX(1) 000008. ..000010 

I V . C ommand Definition s 

Following is a list of commands processed by SDS. In general, only the 
first three characters after the dollar sign need be typed. The structure 
of the the parameter list for each command in presented in standard MTS 
notation. 



SATTKIBDTES [ simple- parameter ] [, simple-parameter ] 

The attributes for each simple parameter are listed. These attributes 
include: relative address, loaded address, type, length, and (if different 
from ona) scale factor and duplication factor. The one-character codes for 
"type" are defined in the discussion of the SDISPLAY command. 

Example: $ATTRIBOTE GAMMA would print out 

RA=000020 LA=101698 TYPE^F LENGIH=4 DUP=20 



SBREAK [ simple- parameter ] [, simple-parameter ] ... 

At each location specified by the parameter list, the instruction is 
saved and a "break-point" is inserted into the user's program. When 
control reaches a break-point during execution of the user's program, 
control is returned to SDS which prompts the user for his next command. 
The program may be restarted by issuing a SBESTAfiT command which executes 
the saved instruction and transfers control to the user's program where 
normal sequencing resumes. 



r T 

Icsect-name| 

$CSECT I * I 

I integer | 

L J 

When a program consisting of one or more control sections is loaded, the 
first one loaded becomes the current CSECT and the remaining control 
sections are opened for referencing. If SDS cannot locate a given label in 
the current CSECT, the remaining CSECT 's are searched (in the order they 
were loaded) for a possible match. If SDS locates the label in the current 
CSECT, SDS will search through the remaining open CSECT 's to make sure the 
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label is not multiply defined. A warning message is printed for each 
multiply-defined label thus located and the first definition is used. 

The SCSECT command provides a means of specifying a new current CSECT. 
The control section named by cs ect-nam e becomes the current CSECT and the 
remaining control sections are closed; that is, checking for multiply- 
defined labels is suppressed and, if a label cannot be found in the current 
CSECT, no further searching through the remaining control sections takes 
place. 

If the command $CSECT * is entered, the first control section loaded 
becomes the current CSECT and the remaining control sections are opened for 
referencing. 

If one or more private control sections has been loaded, the 
command SCSECT i makes the ith private control section loaded the current 
CSECT and closes the remaining control sections. 

Examples: $CSECT PR0G1 
$CSECT * 
JCSECT 2 



r 1 r 1 

I simple-parameter I | simple-parameterl 
SDISPIAY I block-parameter | | , block-parameter | ••• 

L J I. J 

Each parameter (or element in the range of a block parameter) is 
converted according to its type and length, and printed out along with a 
one-character code which indicates the type. These codes are defined as 
follows: 

CODE TYPE 

A address constant 

B binary 

C character 

E floating point 

F fixed point 

I instruction format 

N alignment exception - hex assumed 

P packed 

S S-type address constant 

V V-type address constant 

W channel command word format 

X hexadecimal 

Y Y-type address constant 
Z zoned decimal 
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If a parameter to SDISPLAY specifies an address which is incorrectly 
aligned with respect to the parameter's type, (e.g., half-word alignment 
for a full-word integer) the contents of the byte specified by the 
parameter, and the contents of the next seven bytes, are printed in 

hexadecimal. 

The following conventions will be used when SDISPLAY attempts to display 
"illegal" data: 

(1) character conversion: if a hex code is encountered for which there 

exists no graphic, a question mark will be 
substituted for that codew 

(2) instruction format : if the op-code portion of an instruction is 

not a defined operation, the op-code is 
printed as two hex digits sandwiched between 
asterisks; the length of such an instruction 
is assumed to be two. 

(3) packed format : if the length of the number exceeds 16, the 

number is dumped in hexadecimal. 

(t») zoned format : same as (3) . 

To display the 16 general registers, the predefined parameter, "GRS" is 
used. To display the i th general register, the parameter, "GHi" is used, 
where i is the register number, ranging from zero to 15. 

To display the four floating point registers, the predefined parameter, 
"FES" is used. To display the jth floating point register, the parameter, 
"FEj" is used, where is j is the register number, ranging from zero to 
seven. 

To display a location labelled "GES" or"FBS", or "GKi" or "FRj", where i 
and j are as defined above, append the override, "ag" to each symbol. 
Thus, to display the location labelled "GRIO, enter the command, 
SDISPLAY GEIOaQ; to display general register 10, enter SDISPLAY GB10. 

Examples: $DISPLAY ALPHA, GAMMA(I) . . .GAMI!A(20) 
SDISPLAY PEOG+20, GRS, FR2,C(1)-3 



SGOTO [simple-parameter] 

Control is transferred to the location in the user's program specified 
by the parameter. The parameter must specify a half-word aligned address. 
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r T r 1 

Isimple-parameterl | simple-parameter | 

SHEXDISPLftY I block-parameter | | , block-par ameter r ••• 

u J u J 

Each parameter is printed out in hexadecimal in a format identical to 
the format used by SDOMP. 



r T 

I {decimal-constant} | 

SIGNpRE I simple-parameter {simple-parameter}! 



I {decimal-constant} | 

I , simple-parameter {simple- parameter} | ... 

Ordinarily, when control reaches a location in the user's program 
containing a break-point, execution is interrupted and control returns to 
SDS. The ^IGNORE command provides a means of suppressing this interruption 
each time control reaches the break-point location, for a total of H times, 
where N is either a decimal constant or the contents (presumably integer) 
of the location specified by the simple-parameter. The N+lst time control 
reaches the break-point, the interruption takes place as usual. 

For example, assume a break-point exists at location AD in the sample 
program in section III. To suppress the interruption 20 times, either of 
the following commands could be used: 

$IGNOEE AD 20 or $IGNOfiE AD C 



SLAPFL [simple-parameter label] 

[, simple-parameter label] ... 

The location specified by simple-paramet er is assgned the symbol 

specifiad by label . Thereafter, the location may be referred to by that 

symbol, label is a string of one through eight alphabetic or numeric 
characters, the first of which is alphabetic. 



SHAP 
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A Loader-like map is printed, listing each control section in the user's 
program. 



I simple-parameter hex-constant | 
SHODIFY I block-parameter hex-constant | 



r t 

I simple-parameter hex-constant | 
I , block-parameter hex-constant | ... 

L J 

If simpl e -paramete r is specified, its corresponding hex-co nstant is 
copied into the location specified by the parameter. If block-parameter is 
specified, hex-constant is sprayed through the region delimited by the 
block parameter. In any case, the length of hex-constant must be no 
greater than the length attribute of any location into which the constant 
is being entered. The hex constant will be right- justified and padded with 
leading zeros if necessary. 

To modify the contents of a general or floating point register, the 
naming conventions as specified in the description of ^DISPLAY must be 
used. 



$EESTAHT 

This command returns control to the next instruction to be executed 
after a program interrupt or a $BEEAK-produced interrupt has occurred. in 
the latter case, the saved instruction originally at the break-point 
location is executed and execution proceeds as usual. 



$HES TOHE [ simple- parameter ] [, simple-parameter ] ... 

If no parameters are specified, the last break-point entered via the 
$BEEAK command is removed from the user's program and the original 
instruction is restored. If one or more parameters are specified, the 
break-point (s) at each location are removed and the original operation 
restored. 



SEDN 
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Control is transferred to the entry point of the user's program. 

SSTOPTEST 

End of testing. Control is returned to HTS. 



V . Para m ete r O verrides 

It is occasionally useful to a 
an SDS parameter. For instan 
hexadecimal constant in EBCDIC fo 
overriding the attributes of a pa 
attributes. Each override con 
one-character override code, foil 
overriding the attributes of 
directly to the parameter. If ne 
appended. Attributes may not be 



Iter the implied or assumed attributes of 
ce, it might be necessary to display a 
rmat. SDS provides a means of temporarily 
rameter by explicitly specifying those 
sists of an ampersand (3) followed by a 
owed (if necessary) by a constant. When 
a parameter, the override code is appended 
cessary, more than one override may be 
used with block parameters. 



SDS also provides a means of specifying information about the 
constituents of a parameter. For instance, it might be useful to express a 
displacement as a decimal rather than a hexadecimal constant; or a single 
hex constant might be an absolute (virtual) address rather than a relative 
address. In this case, override codes specifying these properties can be 
appended to that element of a parameter (i.e., label, 
displacement, subscript, etc.) which is being modified. 

Following is a list of override codes and their definitions. 



CODE 
SA 
a)D 
3L=i 



a)S=i 



ST=code 



ax 



DEFINITION 

treat as an absolute (virtual) address. 

force decimal conversion 

set the length attribute to i, where i is an unsigned 
decimal integer. 

treat as a label 

set the scale factor to i, where i is a signed or 
unsigned decimal integer. 

Set the type attribute to code, where code is any of 
the single-character type-codes defined in the explana- 
tion of the SDISPLAY com/aand. 

force hexadecimal conversion 
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Examples: 

Spacify the tenth byte beyond the location labelled "AD": 

AD+A or AD+10aD 
Force a length of 20 on GAMMA: 

GA?1HA®L=20 
Force character conversion and a length of two on delta: 

DELTAa)T=C'9L=2 
Force hex conversion for the contents of location OOOOOC; 

caxaT=x 

Specify absolute (virtual) address 130108 (base 16) : 
130108aA 
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LIBfi&EY FILE DESCBIPTION 

Name: ♦SN0B0L4 

Contents: The object module of the SN0B0L4 interpreter. 

Osage: The SN0B0L4 interpreter is invoked by means of a BON 

command. Since SNOBOm currently does all I/O through the 
FORTRAN IV I/O routines, all input and output is done 
through logical I/O units 1 to 9 See the Fortran Users Guide 
(MTS-520) for details on I/O. 

Logical I/O units referenced: 

5 Source for the S1J0B0L4 program to be translated, 
immediately followed by: 

Data read via default "INPUT" string. 

6 Output from compilation of the SN0B0L4 program and 
output via the default "OOTPUT" string. 

7 Output via the default "PUNCH" string. 

Sxamples $BON *SN0B0L4; 5=*S0URCE* 6=*SINK* 
$RON *SN0B0L4; 5=S N0PB0G+*S0UECE* 
6=*DUMMY* (1,20) +*SINK* 7=*PUNCH* 

Description: See the SN0B0L4 language description in section MTS-560 
(volume II) of the manual. 
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LIBRARY FILE DESCRIPTION 

Name: *SQUASH 

Contents: The object module o± the Card-Squashing Program. 

Purpose: To squash object cards to as few records as possible. 

Usage: The Card-Squashing Program is invoked by the appropriate RUN 

command specifying *SQOASH as the file were the object cards 
of the Card-Squasher may be found. 

Logical I/O Units Referenced: 

SCARDS - the file or device which contains the object 
cards which are to be squashed. 

SPUNCH - the file or device on which squashed object 
records are to be placed. 

SERCOM - the file or device where error comments are 
to be placed; error comments do NOT cause 
ERROR RETURN (i.e. they are not fatal) . 

Examples: 

$RUN *SQaASH; SCARDS=-LIB SPUNCH=MYLIBRARY 

$RUN *SQOASH; SPUNCH=-FUNCH PAR=IDS 
(SCARDS defaults to *SOUECE*) 

Description: The card-squashing program compresses object cards which may 
be produced by a system translator (TXT,ESD,RLD, and END 
cards) and those cards which may be hand-produced 
(LIB, RIP, REP, DBF, LDT, andLCS cards). The input to the card 
squashing program, consists of 80 (or less) byte card 

images bytes 73-80 contain card ID; the output consists of 

compressed "card" images which may be up to 255 bytes in 
length. HLD and TXT input cards are formed into larger 
images for output so that, in effect, there will be fewer of 
these types of images in the output (compared with the 
input) . The other types of card images except for REP are 
trimmed from column 72 backwards. REP cards are trimmed 
starting at the first blank character in the data field. 
The identification of the input images may be placed in the 

output images by using the parameter 'IDS' this is done 

on a one-for-one basis for all cards except TXT and RLD 
cards; the IDS of the TXT and RLD cards are the IDS of the 
first input record used in the compressed output image. 
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LIBRARY FILE DESCRIPTION 

Name: *SSP 

Contents: The MTS FORTRAN produced object modules of the most recent 
modification level of the most recent version of the 
Scientific Subroutine Package. A list of SSP entry points 
is included in section llTS-253. 

Usage: These subroutines are thoroughly documented in the IBM 

publication System/360 Scientific Subroutine Package, 
(360A-CM-03X) Version II, Programmer's Manual (H20-0205) 
They are made available to a program by concatenating *SSP 
with the file or device containing the object program. 

Example: SRUN -OBJ+*SSP *SINK*; 5=*SO0BCE* 6=*SINK* 
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LIBBARI FILE DESCfilPTION 



Same: 
Contents: 
Purpose : 

Usage: 



♦STATUS 

The object module o± the user space-time status program. 

Print information regarding the user's elapsed time, core 
time, CPO time, disk space, and disk storage time. 

The space-time status program is invoked by an appropriate 
RON command specifying *STATUS as the file where the object 
cards are found. 



Logical I/O units referenced: 



Examples: 
Description: 



SPRINT 



Listing of the space-time information. 



$RUN *STATOS 

$RUN *STATOS;SPRINT=riLE 

♦STATOS lists on SPRINT the following information for the 
user. The maximum, used, and remaining figures are given 
for cumulative elapsed time in minutes, cumulative core 
usage in page hours, cumulative CPO time in minutes, and 
current disk space in pages. The amount used is from the 
last time the cumulative sums were reset (e.g. the end of a 
billing period) to the last signoff before the current 
signon. In addition, the cumulative disk storage in page- 
hours is given from the last time the cumulative sums were 
reset to the last time a disk file (including temporaries) 
was created, destroyed, or changed extents. 
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LIBRARY FILE DESCRIPTION 

Name: *SYHBOLS 

Contents: Object module to print a listing of all external symbols 
within the MTS system. 

Usage: This file should be referenced by a $RON with *SYHBOLS as 

the object file, SPRINT as output, and SCASDS as the 
location of a control record. 

Logical I/O units referenced: 

SPRINT The listing which is output is produced on 
the specified file or device 

SCARDS A control record is read from the device or 
file specified. 

Note: *SYMBOLS(0) is a valid control record. 

Example: $RUN *SYMBOLS; SCARDS=*SYMB01S (0) 

(SPRINT default to *SINK*) 

Description: This program produces the listing of HTS external symbols 
which is reproduced in section 253 of this MTS manual. The 
listing is produced by searching the external symbol 
dictionaries of tae system and the library. Hence it is 
current as of the instant it is run. 

The program has options to generate printed output or a 
deck in TEXT90 format. It also will suppress privileged 
system symbols if desired. These options are set by a 
control record which the program expects on the SCAfiDS file 
or device. The format of this control record is not 
provided in this writeup. 

There is a control record in the file *SY11B0LS at line 

number 0. This record will cause the program to produce 

printed output witn privileged symbols suppressed. Hence a 

user may obtain a listing by the command: 

$RUN *SYfiBOLS;SCARDS=*SYMBOLS (0) 
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LIBRARY FILE DESCRIPTION 

Name: *TABEDIT 

Contents: The object module o± the tab editing program. 

Purpose: To simulate the TAB Jcey on remote terminals. 

Osage: The program is invoked by an appropriate RON command, 

specifying an input file, an output file and a parameter 

list, containing a character to represent TAB and a list of 
tab settings. 

Logical I/O units referenced: 

SCARDS The input file to be edited- 

SPRINT The output file containing the edited lines. 

Examples: SRUN *TABEDIT; SCARDS=*SOURCE* SPRINT=ACTIVE 

PAR=10, 16,35, 72 

SRJN ♦TABEDIT; SCARDS=AA SPRINT=BB PAR=/f 5, 10, 15 

Description: The user defines the TAB character and tab settings in the 
PAR list. If the first character in the PAR list is 
non-numeric, the character will be used as the TAB code, and 
all occurrences of that character in the input file will be 
treated as a tabulator key. If the first character in the 
PAR list is numeric, the normal code for TAB will be used. 

The tab stops are entered into the PAR list as column 
numbers. For instance, 

PAB=/»5,10,15 

specifies "/" as tiie TAB character, and tab stops at column 

5, 10 and 15. An occurrence of '•/" in an input line will 

cause blanks to be inserted up to the next tab stop. If the 

line pointer is beyond the last tab~stop (e.g., in the 

previous example, column 15 or beyond) one blank will be 

inserted in the output line for subsequent occurrences of 
11/ ti. 

If a TAB character other than normal TAB is used, 

occurrences of normal TAB in an input line will not cause 

tabulation. All occurrences of the TAB character are 

deleted from output lines. 
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LIBRAE! FILE DESCRIPTION 

Same: *OMIST 

Contents: Object module for UMIST interpreter. 

Purpose: To process OMIST procedures. 

rjsage: UMIST is an interactive text-processing language. It inter- 

prets strings of ciiaracters accepted one at a time from the 
input device and prints the value of each string after 
processing. 

Logical I/O units referenced: 

The initial settings for input and output devices are the 

SCABDS and SPRINT logical devices. Any file or device name 

may later be designated as the current input or output unit. 

Examples: OMIST may be invoked by the HTS command 

SiRON *OMIST 

Description: See the UMIST writeup (section MTS-570) . 
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LIBEAfiY FILE DESCEIPTION 



Same; 



♦UPDATE 



Purpose: 



This program will copy tapes (or files) containing card 
images, making insertions and deletions, as well as blocking 
and unblocking. 



Logical I/O Units Referenced 



SPRINT - printed output 
SEfiCOM - error messages 
SPUNCH - output from XPUNCH 
Commands and insertions are expected to come from the source 
stream (*SOURCE*) . If another source of commands is wished, 
its FDname should be specified following the "PAE=" on the 
$BUII command. 



Examples: 



Usage: 



$BUN *OPDATE 

$EDN *UPDATE; PAR=PIL. UPDATE 

The update input tape must consist of 80 column card images 
which may be blocked to any factor desired. The blocking 
factor, if greater than 1, must be stated on the %INPUT 
command. The update output tape will consist of 80 column 
card images blocked as specified (except for the last 
record, and other records which may be truncated by a %CLOSE 
command. [Space for the specified input and output buffer- 
ing is obtained dynamically when %INPUT and SOUTPUT command 
are encountered; released when %CLOSE is encountered. ] 

All commands take the following form: column 1 must 
contain a percent-sign ("%") which must be immediately 
followed by the command (only the first three letters need 
be given, and they must be upper-case) . Parameters for the 
command are separated from the command and from- each other 
by one or more filanks (or commas, which are treated 
identicall y with blanks) . Lines which are not recognized as 
commands are treated as insertion lines and are copied 
immediately to the update output tape. 

Tape positioning and reading across a file mark while the 
tape is still open is considered an error. Therefore S5CL0SE 
commands should precede positioning and the update should 
finish copying of a file with ^BEFORE FILEMARK, not %AFTER 
FILEMARK. 



Tape A t tachment and Mani p ul ation Comman ds 

SINPUT INTAPE [N] 
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INTAPE is the pseudo-device name (or FDname) of the 
file or device to be established as the update input 
tape. N is an integer specifying the blocking factor 
of that tape. If omitted, a blocking factor of 1 
card/record (i.e., unblocked) is assumed. This command 
causes the tape to be opened. 



Example: %INPUT *IN* 



50 



%OUTPDT OOTTAPE [N] 

OOTTAPE is the pseudo- device name (or FDname) of the 
file or device to be established as the update output 
tape. N is an integer specifying the blocking factor 
desired on that tape. If omitted a value of 1 
(unblocked) is assumed. 



Example; 



XOaTPUT 
%OUTPUT 



♦OUT* 
FIIE1 



20 



1 



XSEHIND T 

Tape T is rewound. T must not currently be open as 
input or output. 

Example: %aEWIND *OUT* 

%EON T 
3SUN10AD T 

Tape T is rewound and unloaded. T must not currently 

be open as input or output. 

Example: %RUN *OUT* 

%FSF T [N] 

Tape T is spaced forward N files. If N is omitted a 
value of 1 is assumed. T must not currently be open as 
input or output. 

Example: %FSF *IiJ* 3 

%BSF T [N] 

Tape T is spaced backwards N files. If N is omitted a 
value of 1 is assumed. T must not currently be open as 
input or output. 

Example: %BSF *IN* 

%WTM T [S] 

%WEF T [N] 

%EOF T [N] 

Tape T has N tape marks (end-of-file marks) written on 
it. If N is missing a value of 1 is assumed. T must 
not currently be open as input or output. 
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Example: »WTM *0UT* 

55C10SE [T] 

Tape T is closed. If the update output tape, the last 
buffer (possibly truncated) is written out. If T is 
omitted, the update output tape is assumed. 

Update Fea t ure Control Command s 

%NEWID H 

Cards written onto the update output tape following 
this command will have new I.D. 's (columns 73-80). The 
first card written will have the I.D. specified in 
this command. Succeeding cards will have I^D. incre- 
mented in steps of one. The I.D. given in this 
command should consist of 8 characters - blanks and 
commas may not be included. Only the numeric portion 
of the I.D. is incremented. 

Example: %NEWID PIL00001 

%OIDID 

Suspends the re-I.D.ing of the cards as described under 

%NEWID. 

XLIST ON 

Starts listing of deleted and inserted cards. 
(Initially on) 

OFF 
Stops listing of deleted and inserted cards [This 
output goes onto *SINK*] 

%PUNCH ON 

Starts putting all card images sent to the update 
output tape on SPUNCH (presumably for punching) . 

OFF 
Turns off the "punching" described above. (Initially 
off) 



Card Locat i on. Copying and Deletion Commands 

In the execution of these commands, the 360 

sequence is used for comparisons- 



collating 



%AFTER ID 

Copies all cards having I.D.'s less than or equal to ID 
from the update input tape to the update output tape 

N 
Copies the next N cards from the update input tape to 
the update output tape. 
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Examples: %AFTEE PIL03789 
%AFTEE 2 

SBEFORE ID 

Copies all cards having I.D.'s less than ID from the 
update input tape to the update output tape 

FILEMARK 

FILEBK 
Copies the rest of the file. It leaves the tape 
positioned after the file mark. 

Examples: %BEFOEE PIL07892 
%BEFOBE FILEMARK 

^DELETE ID 

Copies all cards having I.D.'s less than ID from update 
input to update output, then deletes the card (or 
cards) having I.D. of ID (if any). 

N 
Deletes the next N cards on the update input tape 

ID1 ID2 
Copies all cards having I.D's less than IDJ from update 
input to update output, then deletes all cards having 
I.D.'s IDl through ID2 inclusive from the input. 

ID1~ N 
Copies all cards having I.D.'s less than IDl from 
update input to update output, then deletes the next M 
cards on the input tape. 

* ID2 
Deletes all cards on the update input tape from the 
current position up through ID2. 

Examples SSDELETE PIL0 0016 

%DELETE 2 

%DELETE PI100378,PIL00379 

%DELETE PIL00378,2 

%DELETE * PIL00735 

%FIND ID 

The update input tape is searched for a card with I.D, 
equal to ID. Order of the I.D.'s is ignored. Card 
passed over are not copied to the update output tape. 

Example: %FIND QQSV039 5 



Return Command 

%END 

This command or an end-of-file encountered in the 
command stream causes execution of the update program 
to terminate. All buffers are closed. 
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Sample Command strt^am 



%INPDT 


*IN* 50 


%OUTPDT 


♦OUT* 1 


^DELETE 


PIL00016 


%AFTER 


PIL00079 




GSTSPACE 8193, T=3 




LR 15,1 




L 14,=F"8192' 


%DELETE 


PIL00830,2 


%DELETE 


PIL07044, PIL07049 




POTLINE 




GETLINE 


%AFTEE 


PIL09711 


SAVR# 


DS 6F 


SAVPEG* 


DS 18F 


PAEBEGt 


DS 6F 


^BEFORE 


FILEMAEK 


XCLOSE 




%CLOSE 


♦IN* 


%WTM 


♦OUT* 


%REW 


*00T* 


XRON 


♦IN* 


%END 
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LIBRARY FILE DESCRIPTION 



Name: *WATSRS 



contents- WATFOE-produced error codes and their corresponding defini- 
tions. The file is approximately 370 lines. It is the same 
as the section WATFOB ERROR HESSAGES in the MATFOR writeup 
in section MTS-580. 

Purpose: To provide a means of interpreting WATFOR diagnostics from a 
terminal. 

rjsage: The file may be listed using a $COPY (or JLIST) command. 

BxafflDles: $COPY *WATERR 

$COPY *WATERR(10,20) 
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LIBRAfiY FILE Di,3CBIPTI0N 



Name: 



♦WATFOR 



Contents: 
Purpose: 



The Oniversity of Waterloo FORTRAN IV Compiler. 
Compile and execute FOBTBAN IV programs. 



Usage: 

Logical I/O units referenced 



The compiler is invoked by a RUN command, specifying *lfATFOfi 
as the object file. 



Examples 



Description; 



Note: 



SCARDS 



SPRINT 



SPUNCH 



The source program to be compiled and its 
standard input unit. 

The compiler listings and diagnostics and the 
source program's standard output unit. 

Standard punch unit. (optional) 

Pre-stored library of WATFOH-coded subrou- 
tines, (optional) 



$RON *WATFOR; 5=*S0JRCE* 6=*SINK* 0=*WATLIB 

$RON *WATFOR 

$RnN *WATFOR; SCARDS=MyFILE 1=MYDATA 



/360 WATFOE is a o 
the University o 
and since loading 
eliminated, large 
FOETEAN-G process 
ments as described 
extensions and r 
translator provide 
compile time and 
FORTRAN language a 
object program c 
time. Most error 
this code may b 
entitled "MATFOR E 
usage. 



ne-pass load-and-go processor developed at 
f Waterloo. Because of fast compilation, 
time for the object program is virtually 
time savings may be realized over standard 
ing. WATFOR will accept FOETBAN-IV state- 
in IBM form C28-6515, subject to the 
estrictions noted in this writeup. The 
s comprehensive error diagnostics at both 
and execution time; all violations of the 
re reported at compile time, and the 
hecJcs for programming errors at execution 
comments will contain a 3-character code; 
e interpreted by consulting the section 
rror Messages" at the back of the WATFOR 



The writeup 
MTS-580. 



on WATFOR usage will be found in section 
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LIBRARY FILE DESCRIPTION 



Name: 

Contents: 

Purpose: 

Usage: 

Example: 

Description: 



♦WATLIB 

A library of WATFOR-coded functions and subroutines. 

To provide a library facility for the WATFOR translator. 

The file is referenced by ♦WATFOR through logical unit 0- 

$RUN *WATFOR; 5=*S0UBCE* 0=*»ATLIB 

The subprograms entered into WATLIB will depend on the 
varying needs of the WATFOR user community. Arrangements 
may be made through the Computing Center to enter a routine 
into the library. *WATLIB is formatted according to the 
specifications outlined an section IV of the WATFOR write- 
up. 
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LIBRARY FILE DESCRIPTION 

Name: *2250EDIT 

Purpose: To allow using the 2250 display console to edit a file. 

Logical I/O units referenced: 

SCASDS - input file 

SPRINT - output file 

asage: Initially the program is in sequential mode and will display 

the first line in tae file along with it's line number under 
the heading "Current Input line". Displayed also will be 
the next four sequential lines in the file for context. 
Furthermore as lines are accepted (written into the output 
file) , they are saved and displayed under the heading "Last 
Five Output Lines". None of the above information may be 
altered by the user. 

The next line displayed is the "Current Output Line". 
This line is initially identical to the current input line 
and it is the line which may be modified by using various 
combinations of the programmed function keyboard, 
alphanumeric keyboard, light pen and cursor position. An 
explanation of the various programmed function keys follows: 

Key 16 - (accept line) - in the sequential mode writes out 
the current output line into the output file (using 
the line number of the current input line) and 
displays the next sequential line as the current 
input line (and current output line) . 

Key 4 - (delete line) - when used in the sequential mode, 
writes out a "Zero Length Line" to the output file, 
(using the line number of the current input line) , 
and causes display of the next sequential line as 
the current input line (and current output line) . 

Key 9 - (insert character) "opens" a space in the current 

output line above the cursor position (the light 

pen can be used to position the cursor) to allow 

insertion of a character from the alphanumeric 

' keyboard. 

Key 15 - (delete character) - deletes the character above 
the cursor in the current output line (again the 
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light pen can be used to position) and "closes" the 
line accordingly. 

Key - (edit line) - "assembly edits" (columns 1, 10, 16, 
30) the current output line, assuming for example 
that the input is in free form format. 

To switch to the indexed mode of operation, the asterisk 
following the word "indexed" should be touched with the 
light pen. The program will now expect at least one "MTS 
line#" to be entered from the alphanumeric keyboard before 
the remaining options are exercised. 

Key 28 - (display Xine) - will display as the current input 
line (and current output line) , the line from the 
input file corresponding to the line number entered 
if such a line exists. 

Key 30 - (copy lines) - in conjunction with two line numbers 
entered (use the jump key to enter the second line 
number) , will copy the lines starting with the 
first, up to and including the last into the output 
file. 

Key l^ - (delete line) - in the indexed mode writes out a 
line of length 0, using the line number entered. 

Key 16 - (accept line) - in the indexed mode writes out the 
current output line into the output file using the 
line number currently displayed (i.e. It's possi- 
ble to move lines by displaying, changing the line 
number and accepting if desired) 

Inserting lines in indexed mode is accomplished by typing 
in a line number, using the jump key to position the cursor 
at column 1 of the initially blank current output line, 
entering the desired line and hitting the accept key. 

In indexed mode, keys 0, 9, and 15 operate the same as in 
the sequential mode. 

At any time Key 2 - (set tab) may be used to set up a 
"cursor tab" for the current output line. The first time 
the set tab key is nit a blank line will be displayed with 
the cursor below column 1. The user should enter the 
character "+" in the columns it is desired to tab to. 
Hitting, the set tab key again registers these columns and 
thereafter hitting key 27 - (tab) will move the cursor to 
the next tab column in the current output line. 

To switch back to sequential mode from indexed a starting 
line number should be entered and the asterisk following the 
word "sequential" touched with the light pen. 

Library File Description (*2250EDIT) 311 



flTS-280/82855-0 
12-1-67 



On the alphanumeric keyboard, "cancel" will blank the 

current output line , hitting "end" twice will terminate the 

edit program, and "jump" will move the cursor to appropriate 
starting positions. 
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LIBRARY FILE DESCRIPTION 

Name: *8ASS 

Contents: Object modules of tne PDP-8 assembler 

Purpose: To assemble PDP-8 programs 



Example Osage: 



$RUN *8ASS; 1=*S00fiCE* 2=*80PS 5=-F 
8=*SINK* SPUNCH=*PONCH*aBIN 



Description: The two-pass assembler reads a set of standard definitions 
from "2". EBCDIC source lines are read from "1" and Pass I 
intermediate storage is listed on "6" (a 93-character record 
for each input line) . Pass II input is from "6"; the 
assembly is listed on "8" and binary cards are produced on 
"SPUNCH". 

The input format of the assembler in 8SS (see 7090 MESS 
Manual, volume 2) is compatible with BASS format. 
The internal symbol table size of the assembler is fixed. 
If a program defines S symbols and references symbols 
(including standard opcodes and procedure calls) E times, 
then the PDP-8 assembly size is limited by: 

10(5+65) +2R<M 

For *8ASS, M = 30,000 

8A SS ASSEMBLY L ANGDAGE FORMAT 

Eighty-character source lines are scanned, left to right, for three 
fields: label, opcode, and operand. With the following exceptions, fields 
are delimited by blanks. 

The label field may contain an alphanumeric string less than 9 
characters long, starting with a letter as the first character of the line. 
If the first character is a blank, the label field is empty. 

The operand field must begin betore character 17; otherwise it is empty. 

During the scan, occurrence of a semicolon (";") will force the 
remaining fields to be empty. 

After all three fields are scanned, the rest of the line is treated as 
comment- 

Note: For further information, see the 8ASS writeup in section MTS-590. 
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LIBRARY FILE DESCRIPTION 



Name: *8SSPAL 



Contents: object module to convert PDP-8 load card images to PDP-8 
paper tape formats. 

Usage: ♦SSSPAL is used to convert the load cards produced by the 

8SS system on the 7090 or the output of the 360 PDP-8 
assembler (*8ASS) to the paper tape formats required by most 
PDP-8 configurations. 

Logical I/O units referenced: 

SCARDS Source of binary load cards 

SPONCH Sink for paper tape output 

Examples: $RUN *8SSPAL; SCARDS=CABDSOUECE SPONCH=TAPESINK 
$RUN *8SSPAL; SPONCH=*PAPEHTAPEPONCH*aBIN 

Note: Both the input and output FDnames refer to entities which 

must have the binary attribute associated with them. Thus 
if CARDSOORCE is an intermediate file, $COPY *SOUBCE*aBIN TO 
CARDSOORCEasiN would load it properly. Similarly $COPY 
TAPESINKaBIN TO *PAPEfiTAPEPONCH*aBIN would punch the output. 
*8SSPAL both reads and punches ©BIN. 
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THE DYNAMIC LOADER 



The dynamic leader takes the output from the language processors such as 
the Assembler or FOBTRAN compiler and puts it into the memory of the 
computer so that it can he executed. The loader is invoked by the $RUN and 
SLOAD commands and by the system subroutines LINK , LOAD , and XCTL. 
Although the general processing done by the loader is the sane in all 
cases, some details differ depending upon the manner in which the loader is 
invoked. 

The writeup for the dynamic loader consists of several sections, each 
covering a different aspect of the loader. A list of these sections 

follows: 



1 SECTION NUMBER | TITLE | 


1 MTS-292 1 Description of the Loading Process 1 
1 MTS-294 1 Description of the Loader Input | 
1 MTS-29 6 1 Description of the Loader Output j 
1 WTS-298 1 Loader Library Facility | 
1 MTS-3tH 1 Loader Internal Specification ( 
1 _ ^ I 1 
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DESCRIPTION OF THE LOADING PROCESS 



Introduction 



The dynamic loader takes one or more object modules, each consisting of 
one or more control sections, and puts them into the memory of the 
computer. External symbols which are referenced by the object modules but 
not defined by any of them are looKed for in the system library, and loaded 
if found. The program thus loaded can be executed, provided that no fatal 
errors were detected during the loading process. 

Loader Input 

The dynamic loader receives its input from two sources. The first 
source is the file or device specified as the loader input parameter on the 
IRON or $LOAD command or the call to LINK, LOAD, or XCTL. The information 
contained in the loader input file or device should be loader input lines 
as described in MTS-294. Each line is read and processed sequentially 
until an end-of-file, a load terminate line, or a line which is not a legal 
loader input line is encountered. At this point the loader will no longer 
reference input from this source. 

If after processing the input from the user specified source, external 
symbols remain which have not yet been defined although they are ref- 
erenced, the loader continues with its input coming from the system 
library, which is contained in the file *LIBRARY. The object modules from 
the library are loaded selectively. That is, only object modules which 
satisfy unresolved external symbols and modules which are in turn ref- 
erenced by such modules are loaded. 

Optional libraries may be concatenated to the end of the user specified 
source. Object modules from the optional library will be selectively 
loaded after all modules preceding it in the user specified source have 
been loaded and before the system library is scanned. The optional library 
may be either a public library, as the Scientific Subroutine Package in the 
file *SSP, or a private library created by the user. More details about 
optional libraries can be found in section MTS-298. 

Resident Sys t em Symb ols 

after the object modules from the user specified source and the library 
have been loaded, there may still be some unresolved symbols which 
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reference the resident system. Examples of such symbols are GETSPACE, 
READ, SPRINT and ERROR. The correct values for these symbols are located 
in two system tables, one containing definitions of symbols whose values 
never change, the other symbols which change from user to user such as 
SPRINT. These tables are searched in an attempt to resolve all symbols not 
yet defined. Symbols which are still undefined after this search are 
printed out in error messages as undefined and loading halts. 

If the loader is invoked via a call to one of the subroutines LINK, 
LOAD , or XCTL, symbols and their values may be added to the system table of 
unchanging symbols (the initial ESD table) and entirely new tables of 
changeable symbols (low core symbol dictionaries) may be created by the 
user. For details on this, see the appropriate subroutine writeups, the 
description of the LCS loader card in flTS-294, and the loader library 
specifications in MTS-298. 



Loader Output 



The dynamic loader generates two types of output as the fruits of its 
labors. The first type of output is the program which remains in the 
memory of the computer. This program is a represientation of the informa- 
tion in the object modules which have been loaded. The representation is 
such that the program can be executed, provided that no fatal errors were 
detected during the loading process. 

The second type of output generated by the loader consists of printed 
information describing the results of the loading endeavor. This Includes 
error messages, a map showing the value of each external symbol as well as 
the location and relocation factor of each control section, and the entry 
point of the program. The map may be omitted. 



Entry Poin t Determina ti on 



The entry point of a program is the point within the program where 
execution will begin if the program is executed. That is, it is the 
location of the first instruction within the program to be executed. This 
location is determined by the loader as it processes the object modules 
forming the program. The following algorithm is used to determine the 
entry point: 

1. If one or more entry lines (ENT) have been encountered, the entry 
point is the value of the external symbol referenced on the first 
such ENT line, 

2. Otherwise; if the processing of input from the user specified source 
was terminated by a load terminate line (LDT) and that line 
referenced an external symbol, the entry point is the value of that 
external symbol. 
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3. Otherwise; if one or more object module end lines (END) contain an 
entry point a ddre ss, the entry point is the value of the entry point 
address from the first such END line. 

4. Otherwise; if at least one control section has been encountered, the 
entry point is the address of the first byte of the first control 
section encountered. 

5. Otherwise; the entry point is zero. 



Loader Processing Details 

As the loader processes its input, it maintains its own internal tables 
and performs other tasks necessary for the generation of an executable 
program in memory. Following is a list of the various tasks performed by 
the loader. 

1. The loader maintains an external symbol table which contains an 
entry for each external symbol thus far referenced or defined. 
Since there may be many private control sections, there may be many 
entries in the table whose names are blank. The information stored 
in the table for each external symbol includes the symbol name, the 
location of the symbol if it has been defined, the relocation factor 
of the symbol if it is the name of a control section, the current 
"short hand name" or external symbol identification (ESID) by which 
the symbol is referenced in the lines of the object module currently 
being loaded, and a set of status bits indicating if the symbol is 
defined, if it is the name of a control section, common section or 
pseudo-register, if the symbol was defined by the system, and so 
forth. 

2. Address constants which refer to external symbols are relocated. If 
the symbol has not yet been defined when the address constant is 
encountered, pertinent information is stored in a relocation table 
so that the relocation can be performed when the symbol is defined. 

3. Storage is acguired in the memory of the computer for each control 
section encountered in tJie loader input, and the text for each of 
these control sections is loaded into the storage acguired for the 
corresponding control section. 

t. An entry point is determined via the algorithm described above. 

5. The loader input is checked for errors. If errors are detected an 
error message is printed and loading is either continued or 
terminated depending upon tae severity of the error. 

5. A map is produced showing pertinent information about each external 
symbol and control section name. The map may be omitted as an 
option of the user. 
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7. The loader is capable of producing a reference table for the 
external symbols, showing the locations at which each external 
symbol was referenced. However, there is currently no way in MIS to 
turn this option on. 

Loader Invocation Details 

The loader is invoked by the $BON and $LOAD commands and by the system 
subroutines LINK , LOAD, and XCTL . Although the general processing done by 
the loader is as described above in all cases, some details differ 
depending upon the manner in which the loader is invoked. This section 
presents a general outline of the processing performed by each type of 
invocation of the loader. For more details, see the appropriate command or 
subroutine writeup. 

A. Invocation by a $RDN command. 

1. Storage and devices acquired by previous commands and all their 
consequences are released. 

2. Devices required for the run are acquired. 

3. The program is loaded, with the map produced if a loader output 
file or device was specified. 

H. The registers are set up as in a normal subroutine call. 

5. The system transfers to the program at the entry point. 

6. The program can return to the system via normal subroutine return 
conventions or by calling the system subroutines SYSTEM or EfiBOE. 

3. Invocation by a SLOAD command. 

This is processed exactly as a $EUN command, except that the loaded 

program is not executed. Instead MTS remains in command mode. The 

program will be started in the normal fashion if a $START command is 

given. This allows the user to display and alter sections of the loaded 

program before execution begins. 

C. Invocation by a call upon LINK. 

1. The program is loaded, with the map produced if a loader output 
file or device was specified on the initial $RON or $LOAD 
command. 

2. The registers are set up to make the call upon the LINK 
subroutine transparent. 
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3. The system transfers to the program at the entry point. 

4. If the program returns as a normal subroutine, all storage 
acquired to load it plus all further storage acquired by it at 
its storage level and at higher levels is released. 

5. The system returns to the program which called LINK. 

D. Invocation by a call upon LOAD. 

1. The program is loaded, with the map produced if a loader output 
file or device was specified on the initial SRDN or $LOAD 
command. 

2. The external symbol table and entry point of the loaded program 
are made available to the program which called LOAD. 

3. The system returns to the program which called LOAD. 

Note that the program loaded is in core and ready to use. All 
storage acquired during the loading operation is cataloged under a 
unique storage index number. This storage can later be released by 
calling the subroutine ONLOAD. 

B. Invocation by a call upon XCTL. 

1. The storage having the current storage index number is released. 
This presumably is the program which is calling XCTL. 

2. The program is loaded, with the map produced if a loader output 
file or device was specified on the initial $BON or JLOAD 
command. 

3. The registers are set up to make the call upon the XCTL 
subroutine transparent. 

U. The system transfers to the program at the entry point. 

5. If the program returns as a normal subroutine, the action taken 
is the same as what would have happened if the program which 
called XCTL had returned instead. 
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DESCRIPTION OF THE LOADER INPOT 

Th«^ loader accepts as valid input thirteen different types of input 
records. These input records break into three groups: one group of records 
is generated by language translators to form object modules, the second 
aroup is generated by the user to "patch" object modules and specify entry 
points, while the third type is used to control selective loading of 
library object modules and other services. 

All loader input images are identified and referred to by the sequence 
of three characters appearing in the second, third, and fourth columns of 
the input record. Although loader input usually consists of card images 
and this writeup shall describe them as such, variable length input lines 
are accepted by the loader provided that all required information is 
present as specified and all counts are correct. Records of up to 256 
bytes in length are accepted. 

Following is a brief paragraph describing each of the valid loader input 
records. If the loader encounters a non-loader type record, it prints out 
the contents of the record and considers it to be a logical end-of-file. 
Following that is a table showing the exact record formats for each type of 
loader input record. 

1 • Tran slator -g enerated Load Recor ds 



A^ ESD Input Record. (External Symbol Dictionary) . 

Translators generate ESD records in object modules to define the 
external symbols contained within the module and indicate which 
symbols external to the module are referenced within it. All 
necessary information, such as length of control sections and 
program common, alignment of pseudo-registers and address of an 
external symbol definition within a control section is specified 
for the loader. 

B^ TXT Input Record (Text) 

The TXT input records generated by translators contain the actual 
text or data of the module. Information on the TXT record 
includes the control section the data is contained in, the 
starting address of that data within the control section, the 
number of bytes of data on the record and the record itself. 

C. RLD Input Record (Relocation Dictionary) 

The RLD input records generated by translators contain all 
information necessary to relocate address constants which refer 
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to external symbols or labels within the control section. 
Information on the RLD record includes the control section and 
address within it of the address constant, the length of the 
address constant, and the external symbol which the address 
constant referred to. 



Di END Input Record 

The END record indicates the end of the object module, 
optionally give an entry point address within the module. 



It may 



B- SYM Input Record 

The assembler generator SYM records in object modules if the TEST 
parameter is turned on. These records contain a dictionary of 
symbols, which are internal to the module and are used by symbolic 
debugging packages. These records contain no information that is 
vital to the loading process and are ignored by the loader. 

User-generated Lo ad Records 



LDT Input Record (Load Terminate Record) 

A load terminate record is optional, but may be placed after the 
last object module by the user. The loader will never read past 
the load terminate record, so that it can be used to stop the 
loader when data records follow the object deck. It also can be 
used to specify the entry point of the program. The external 
symbol which indicates the entry point is ignored if it is blank. 



REP Input Record (Replace Record) 
A REP record can be used to "patch" 
of a control section. All fields 
as hexadecimal digits, so that the 
terminals and is readable. The rec 
er of the control section and st 
modified. Furthermore, it contains 
the original text. This data m 
number of bytes of data, with two h 
The data can be delimited by com 
desired; and the data field ends 
"patch" can be applied on any byte 
which will fit on a loader input re 



(correct) errors in the text 

of a REP record are specified 
information can be typed at 
ord contains the ESD identifi- 
arting address within it to be 

the data which is to replace 
ust always specify an integral 
exadecimal digits per byte. 
mas on the byte boundaries, if 
with the first blank. The 

boundary and be of any length 
cord. 



DEF Input Record (Define External Symbol) . 

A DEF record can be used to define an external symbol within an 
object module. Its primary use is to define symbols as external 
when this was forgotten in the original source module. The 
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record contains the name of the symbol, the control section it is 
located in, and its address within the control section. All 
numbers are specified as hexadecimal digits. 

D. ENT Input Record (Entry Point Record) 

An entry point record may be used to specify the entry point of 
the program. The record contains the external symbol with which 
execution of the program is to begin. ENT records are generated 
by some translators. 

E. NCA Input Record (No Care Record) 

~ A no care input record can be used to specify that the user does 
not care if the symbol referenced on the NCA record is undefined. 
The loader will not print an error message if this symbol is 
referenced but not defined. Instead, it will be treated as if it 
has a value of zero. NCA records are generated by some 
translators. 

Library Co n trol Re cords 



A. LCS Input Record (Low Core Symbol Table). 

The ICS record is used to present a low core symbol dictionary to 
the loader. The external symbol specified is assumed to be the 
origin of an external symbol dictionary, which contains entries 
for symbols and their values. If any symbol in the table has 
been referenced but not yet defined by the object modules loaded 
thus far, it is given the definition contained in the table. See 
section MTS-298 for a description of an external symbol dictiona- 
ry- 

B. LIB Input Record (Library record) , ^. * 
~ The LIB record is used to control the selective loading of 

library object modules. If the symbol on the LIB record has been 
referenced by object modules loaded thus far but never defined, 
the object module immediately following the LIB record is loaded. 
Otherwise it is ignored. Optionally the IIB record may contain 
the line number on which the object module begins. The object 
module then would not be located after the LIB card but would be 
pointed by it. The processing of the library is faster if this 
option is taken, since object modules which are not referenced 
need not be read. 

C RIP Input Record (Reference If Present Record) 

— The RIP record is used to solve problems of multiple entry points 
and forward references within the one-pass library scan. If the 
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second symbol on the record has been referenced but never defined 
by the object modules loaded thus far, the first symbol is also 
marked as having been referenced but not yet defined (provided it 
is indeed not yet defined) . 
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Record Formats - Dynamic Loa der 

The following are the card image tormats for the dynamic loader. The 
loader will accept variable length input up to 256 bytes long, but card 
images are the most common and hence are shown here. 

1. Translator-generated Load Cards: 

ESP Inpu t Recor d (Card Image) 



I — r 



111 2-4| 5-10 |11,12|13,1t»|15,16| 17-72 



I 73-80 
_i — . 



I I I 

I « — ESP DATA — see below "—Not 
I used 

■—Blank if all ESD items are LP 
t— ESP IDEHTiriEB of first ESD item 
-Blank (other than LP) 



-number of bytes of ESD data 



t — Blank 
I— ESD 
-Not used 
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ESD Data Item 



I 1-8 |9|10-12|13| 14-161 

L I L _L , L . 1 I 



I •— Zero-if length is on END card. 

I "—Length of control section (if type is: SD,PC,C11) 

I ' —Identifie r of SD entry containing name 

I "—Blank if type is Efi 

I "—Length of pseudo-register (PR) 

I 

I— Blank-alignment Pactor for type PR 

"—24 bit address (SD,PC,1D,LR) 

"— Tl£e-Hex {00=SD,01 = LD,02=EB,03=LR,04=PC,05=CM,06=PR) 
L-Name — when type is SD,LD,LR,ER,CH,PB 
"—Blank — when type is PC or blank CM. 



TYPE MNEMONIC 



I— 



I— 



SD 



LD 



EE 



LR 



PC 



CM 



PR 



MEANING 



Name Control Section 



Entry Point Name 



External Symbol Name 



Label Reference 



Private (blank -name) Control Section 



Program Common Name 



Pseudo-registers Name 



326 



MTS-29a-0 
12-1-67 



ToYtTnpnt. Re cord (C ard ImageL 



-r— I r 



[li2-£»T5l6-8i9-10|11,12il3,14il5,16| 17-72 



T 1 

I 73-80 I 
_i . -—I 



r-^i -^r-^r 



I •■ I ~ r 

I ' — Text dat a (machine | | 
I language code) "—Not 
t — SD Identifier of used 
SD for control of 
this section of this text 
Blank 



-Number of bytes of text data 



•--Blank 

24 bit address of first byte of text data 
- Blank 

L_TXT 
I — Not used 
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IID-Input 5ecord_j[Card_Iiiia^}_ 



r — r 



I 1|2-U| 5-10|11-12| 13-161 17-72 



I 73-80 I 



■—Blank 
Not used 



I I 

I I 

I t— RLD dat a-see below 

I 

I— Blank 

-Number of bytes of BLD data 



«--Not 
used 



I 1 1 — r— 1 

|1,2|3,4t5[6,7,8 | 



■— Assigned addre ss of a 
-Flag field — (TTTTLLSTn) 
TT TT=type 
O000=non-branch 
0001=branch 
0011=pseudo register 

cumulative length 
LL=length of address 
c onstant 
01=2 bytes 
10=3 bytes 
11=4 bytes 



ddress constant 

S =Directio n of rel nnati nn 
O=positive (+) 
1=negative (-) 

£a5tZ£e_of next RLD item 
0=next RLD item has a 

different a or P pointer 
They are present in the 
next item. 
1=next RLD item has the 
same R and P pointers, 
hence they are omitted. 



■—Positio n pointe r (P) -ESDID of SD 
for control section that contains 
the address constant 

■— Relocation_2ointer (R) -ESDID of CESD entry 
for the symbol being referred to. Zero (00) 
if type=PR cumulative length 
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EN D In put Record (Card Imaged 



I — r 



|1|2-tH 5|6-8| 9-14 115,161 17-28 |29-32| 33-80 



-J-r^r- 



-Blank 



■—Blank 



I I 

I "—Not used 

I 

■ —Control section length 
for control section whose 
length was not specified 
in SD ESD item. Byte 29 
is binary zero if length 
is present. 

«— BSDID of SD item for this section that 
contains the address specified in 
bytes 6-8- 

24 bit address of entry point (optional) 
■— Blank 

END 
■—Not used 
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SYW Input Record (Card Image) 



r 1 1 1 1 

I 1 I 2-H I 5-101 11,12 I 13-72 



I 73-80 I 
J — , wj 



I I 

I «— Not 

I used 

1— Symbolic Debugging Package data 



-Number of bytes of symbolic 
debugging package data 



•—Blank 



-SYM 



-Not used 
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2. User - generated load Cards: 



LP T Input Record ( Card Image ) 



I 1|2-4| 5-16 I 17-24 | 25-80 
•-H-i— 



I 



' — r "—I "— 1 

II I I 

' ' ' ' 

I I— Not I "—Not used 

I used I 

I— IDT >— 8 character entry point 

name (optional) 

Not used 



REP Input Bec ord ( Ca rd Ima ge) 



n "12-415-61 7-12 113-14 I 15-16 I 17-80 

L ^X , J- . 1- , «- . «- 



I I 
I I 

I '-HEP 



-Not 
used 



»— An even number of hexadecimal 
digits ending with the first 
blank which replaces an integer 
number of bytes. The digits may 
be separated by commas (on byte 
boundaries only) if desired. 

- ESP Id enti fier of SD for control 
section of text as two right justified 
hexadecimal digits. 
-Not used 
•—Address of first byte of replace data as six 
right justified hexadecimal bits. 
I— Not used 

Note: A zero ESP Identifier always indicates that the address is absolute, 
that is, not to be relocated at all. 
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DEF Input Re cord (Ca rd Imaga ) 



r— I 1 1 1 1 r 1 

|1| 2-a|5-6|7-12|13-14|15-16| 17-24 J25-80 



I '—DEF 
I 

•--Not 
used 



-Not used 



I 
I 

"—External symbol which 
is to be defined. 



■ —ESP Id entifier of SD for control 
section to contain this external 
symbol, as two right justified 
hexadecimal digits. 
-Not used 



address of the external symbol as six right 
justified hexadecimal digits. 
•-—Not used 



ENT Input Re cord .{Card_i inag«q) 



I , , , , 

I 1 I 2-4 I 5-16 I 17-24 | 25-80 



' — Not used 

-8 character entry 
point name 



-Not used 



«— ENT 
-Not used 
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NCA Input Record (Card I mage) 



I 1 1 1 1 " 

I 1 I 2-4 I 5-16 I 17-24 | 25-80 



I— Not used 

-Name of the external symbol 
which can be left undefined. 



I — Not used 



■—NCA 
-Not used 
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Library Control Cards 



LCS Input Record (Card Image) 



1 1|2-4|5-16| 17-24 | 25-80 

L ^X . L . L , L. 



r--r 



I 



■-LCS 

i~Not 
used 



I •—Not used 

I 

•—The external symbol whose value is 
the origin of a low case symbol 
dictionary table. 



-Not used 



Note that the system low core symbol dictionary has the pre-defined name 

LCSYMBOL. an LCS card referencing that symbol can be placed at the end of 

the deck by the user and will eliminate several seconds of loading time if 
no library subroutines are referenced. 



L IB In Rut Record (Ca rd Image) 



I 1 1 1 1 1 

I 1 I 2-4 I 5-8 I 9-16 I 17-241 2b-80 



-LIB 



-Not 
used 



-Not 
used 



•-—Not used 



•—The module name of the 
object nodule. 



- Blank ; object module follows. 

-Full word integer line number of 
the first line of the object module. 
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RIP Input Record fCard Image) 



ni'z-U |5,6|7-14|15,16| 17-2«i| 25-80 



I 



«-,-J-, 



I 

L-EIP 



•--Mot 
used 



I 

•—Not used 

•—External symbol to be tested. 
•—Not used 



I 



•—External symbol to be treated as 
referenced but not defined if the 
symbol to be tested is of that class. 



I— Not used 
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Lo ade r I nput Deck O r dering and Re strictions 

The usual order of loader lines within an object module is depicted in 
the following diagram. The top of the diagram is the front of the object 
module. REP, DEF, and RLD recoras are optional and appear only if 
required. The user must supply REP and DEF cards if he requires them. 
language processors do generate the object module cards in the correct 
order. 



SSD Records | 
1 



TXT Records 



REP Records 



DEF Records 



RLD Records 



END Record 



Order of loader lines within an object module. 

The usual order of the object modules and other loader lines within the 
loader input is depicted in the following diagram. Because they are 
usually used only by the library, the positioning of LIB and RIP cards is 
not shown here. 
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[First Object Module 



1 Second Object Module 



[Last Object Module 



I 1 

|LCS ICSYMBOL Record | 

I — • 



r- ' — T 

|LDT "Entry Point" Record | 

I J 



Order of loader lines within 
the input to the loader. 



A user is posed with the problem of presenting the loader will all of 
the loader input records in the correct order. One solution of this is to 
concatenate all of the files which contain object modules that are to be 
loaded together. For instance, suppose that three object modules have been 
generated by language translators, one object module in each of the files 
-0BJ1, -0BJ2, -0BJ3. Then an appropriate run command to load and run the 
contents of these files might be: 



$RON 



-OBJ1+-OBJ2+-OBJ3 



The contents of these files could be combined into one file if desired, by 
a command as: 

$CO?Y -0BJ1+-OBJ2+-0BJ3 TO -OBJECT 
The load specified above could then be written as: 
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$RDN 



-OBJECT 



The object modules could also be put into the same file by use of 
appropriate starting line numbers on the output device for the translator. 
For instance, the object modules from two runs of the assembler could be 
run using the following sequence: 

SRON *ASMBLE; SPaNCH=-OBJECT SCABDS=. . . 

SSDN *AS1!1BLE; SPONCH=-OBJECT (LAST+1) SCARDS=... 

$RUN -OBJECT 



These hints have indicated just a lew of the more common ways a 
present the loader with the appropriate set of input records. 



user may 



A 
may st 
pseudo 
START, 
A more 
descri 
restri 
loader 



deck wh 
ill run 

regist 
ENTRY 

precis 
ption c 
ctions 

with s 



ich follows all the suggestions above concerning deck ordering 
into difficulties, especially if it uses program common or 

ers. There are also some problems with the ordering of CSECT, 
and V-type adcons within assembler language source modules. 

e list of the deck ordering restrictions follows, with a brief 

larifying the restriction if necessary. In general, the 
are those which would be normally expected from a one-pass 

pecial provisions for external symbol forward references. 



1. Object Modules cannot be intermixed. 

The moral is, do not shuffle your object module decks together. 
Object modules should be placed in sequential order, one after the 
other. 

2. If more than one object module references a program common or 
pseudo-register, the object module which declares the program common 
or pseudo-register to be the largest should appear first. 

The first reference to a program common or pseudo-register is 
used by the loader to assign the space for that program common or 
pseudo-register. Hence if a later reference requires more space, it 
will run over the end of the space actually allocated. Ko error 
messages are generated for this situation. 

3. An LCS record may appear anywhere; however, it will define only 
those symbols which are referenced in the object modules which 
preceded it. 

H. An LDT record must, of course, be the last record, since it "turns 
off" the loader. 

5. Within an object module, an ESD Identifier must be defined before it 
is referenced. 

The ESD Identifiers are integers which are put into correspon- 
dence with the external symbols referenced within the object module, 
so that all references to these symbols on the other records within 
the module can consist of a two byte integer rather than the eight 
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byte symbol name. On the surface this restriction merely states 
that TXT, HEF, DBF, and RLD records should not appear before the BSD 
records. More subtly though, some items on the BSD records (namely 
items generated by the ENTRY statement in assembly language) refer 
to another BSD item (namely the control section containing the 
definition) via an BSD identifier. Hence a sequence in which the 
ENTRY statement appears before the START or CSECT statement for the 
control section containing the symbol will generate an BSD Identifx- 
er forward reference within the BSD records themselves. That is, 
the sequence 

BNTBY WHEE 
CSECT 
WHES EQO * 

will cause a loader error, whereas the sequence 

CSECT 

ENTRY WHEE 
WHEE EQU * 

will be loaded correctly. This problem in forward references of BSD 
Identifiers should not be confused with external symbol forward 
references, which works correctly in all cases. 

Within an object module, no external symbol may be assigned more 
than one ESD Identifier. 

An external symbol will be assigned more than one BSD Identifier 
if it occurs more than once on the ESD records. The only known way 
of causing this error is to refer to the same symbol in a V-type 
adcon and in a CSECT, START, EXTRN, or ENTRY statement in assembly 
language. That is, the sequence 

WHEE CSSCT 



DC V(WHEE) 
iSill cause a loader error, whereas the sequence 

WHEE CSECT 

DC A (WHEE) 

will b:^ loaded correctly. The reason is that the former construction 
declares the external symbol WHEE to be defined in this object module and 
external to this object module at the same time, which confuses the loader. 

7. The TXT and REP records within an object module take effect in the 
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order they appear. An RLD item either takes effect iannediately if 

the external symbol referenced is already defined, or is saved until 

the object module which defines that external symbol has been 
processed. 

8. The last record of an object module must be its END record. 
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DESCBIPTION OF THE LOADER OOTPDT 



Introduction 



The dynamic loader produces two types of output as the fruits of its 
labors. The first type of output is the program which remains in the 
memory of the computer. The second type of output consists of printed 
information describing the results of the loading endeavor. Both of tnese 
are described in more detail below. 

The Program 

The sole purpose for the existence of the loader is to put programs into 

the memory of the computer in such a way that the program can be executed. 

The loader performs three operations to each control section that is 
loaded. These are: 

1. The loader acquires storage for each control section. An indepen- 
dent block of storage is acquired fo-r each control section. The 
block of storage acquired for a control section comes from any 
available free area of the computer's memory which is large enough. 
Hence it is unlikely that any two control sections will be loaded in 
contiguous storage' or that the loading of the same program on two 
different occasions will produce an identical map. This is a very 
important difference between MTS and other systems which have been 
run at the Oniversity of Michigan in the past. It is not at all 
possible to postulate where a control section will be loaded 
relative to other control sections. Core storage is acquired 
dynamically on a competitive basis against the other users of the 
system. 

2. The loader inserts the text of each control section into the area 
acquired for the corresponding control section. Of course, the 
relative displacement between any two bytes of a control section is 
preserved. One can think of this process as picking up the text of 
the control section and copying it into the storage acquired for the 
control section byte-by-byte, in the exact order of the original 
control section. No changes are made at this point to the text of 
the control section to indicate that is has moved. 

3. Because control sections can be located anywhere arbitrarily rela- 
tive to each other, it is necessary for the loader to be able to 
"inform" a control section of the location of itself and other 
control sections which it wishes to reference. Because of the 
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base-displacement addressing scheme 
constants and channel command words n 
loader. This process is referred to 
address constants and channel command 
channel command words which require 
which have a machine address as a 
expressions contain references either 
within the control section contain 
channel command word. The loader eval 
as the values of these symbols the mem 
assigned to in the loading process, 
then becomes the contents o± the addre 
word. In this manner then, a control 
control sections even through they are 



on the IBM/360, only address 
eed to be modified by the 

as relocating the appropriate 
words. Address constants and 
relocation contain expressions 
value. Furthermore, these 
to external symbols or symbols 
ing the address constant or 
uates these expressions, using 
ory locations they have been 
The value of this expression 
ss constant or channel command 
section may refer to other 

assigned storage independent- 



Printe ^ Outpu t 



The second type of output generated by the loader consists of printed 
information describing the results of the loading endeavor. This includes 
error messages, a map showing the value of each external symbol as well as 
the location and relocation factor of each control section, and the entry 
point of the program. All numbers printed in the map and error messages 
are in hexadecimal. The map may be omitted. A sample of some loader 
output is shown below. The various parts of the printed output will be 
discussed following the example. 



Sample Loader Pri nte d Out put 



SNARK 
ENTRY 



IS AN 
= 047018 



ONDEFINED SYMBOL. 



NSHE 



VALUE T SF 



NAME 



VALUE T RF 



NAME 



VALUE T BF 



SNAP.K 






SYSTEM 


014CAC 


* 


ERROR 


014CE4 


* 


GDINFO 


017810 


* 


GETFD 


0181E0 


* 


SDUMP 


0183D6 


* 


SCARDS 


018464 


* 


SPRINT 


018476 


* 


SPHNCH 


018488 


* 


SERC01 


01849A 


* 


READ 


018506 


* 


WRITE 


018522 


* 


LCSYMBOL 


018BA8 


* 


MYCOM 


02C018 


C02C018 


S0B1 


02C730 




SUB1# 


02C730 


02C730 


IHCFCOHH 


030018 


030018 


IBCOM# 


030018 




FDIOCS* 

• • • • > • 


0300D4 




MAIN 

• « • « « • 


047018 

■ • • • • • 


• • « • • • 


HAIN# 

« • • • • • 


047018 


047018 



34: 
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The Entr y Point 

The entry point of the program is computed by the loader as described in 
the section MTS-292. This entry point is printed as a part of the loader 
output. In the sample above the entry point is at address 047018, which is 
also the value of the external symbol MAIN. Hence execution of the program 
will begin in the subroutine whose name in BAIN. This effect might have 
been caused by an IDT record giving the entry point external symbol "MAIN". 

The Ha p 

The aap contains an entry for each external symbol which has been 
referenced in the loading process. Each entry gives the name, value, type, 
and relocation factor of its symbol. The entries of the map are printed in 
ascending order by value. The information in an entry is described in more 
detail below: 

1 . Name , 

This is the eight character name of the external symbol. Each j 
non-blank name can be associated with only one external symbol. 1 

2 . Value 

This is the actual address assigned to the external symbol. It 
is the address in the computer's memory where the instruction or 
data associated with the external symbol is located. If the symbol 
is undefined the value is printed as six dashes. For pseudo- | 
registers this is the displacement assigned within the pseudo- | 
register area. 

3 . T^Ee 

The type gives some indication of the status or special 
significance of the symbol. The allowable types and their meanings 
are: 

* The symbol is a system symbol. It is either pre-defined by the 
system, or received its value via the processing of an LCS 
record. 

C The symbol is the name of a program common. Note that program 
common is treated much like a control section. There is no 
fixed area in which program common is located and there may be 
more than one common. 

D The symbol has been defined by the user with a DEF control 
record. 

P The symbol is a reference to pseudo-register storage. This is I 
used by some translators to handle dynamic storage assignments. | 

All other symbols are given a blank type code. This indicates 
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that they are the ordinary type of symbol with no special meaning, 
For instance, control section names and entry point names fall i] 
this category. 

U • R eloc ation Fa cto r 

Every symbol which is the name of a control section also has < 
relocation factor printed in its entry. The relocation factor is 
the number which must be added to addresses in an object 01 
assembler listing to compute the actual machine memory locatioi 
address of the item in guestion. That is, the relocation factor ij 
the location corresponding to the location 000000 in the contro] 
section object listing if indeed there was such a location. The 
relocation factor is essential for finding information in storage 
iumps. 

Error Messages 

As the loader is processing its input, it checks the input for errors. 
An error message is printed for each error detected and the action taker 
next depends upon the severity of the error. If the error is a 
non-recoverable error, loading is terminated immediately and execution of 
the program is aborted. If tne error is is a fatal error, loading is 
continued but the execution of the program is still aborted. Finally, if 
the error is a non-fatal error, loading continues as normal. A list 
showing each message, its severity, and likely causes for the message is 
given below: 

1. INPUT RECORD LONGER THAN 256 CHARS. 

Non-recoverable. An input record was read which was longer than 256 
characters. Since the input buffer is only 256 characters long, 
internal tables may have been destroyed. 

2. CARD NOT A LOAD CARD, SND-OF-FILE ASSUMED. 

Non-fatal. An input record which did not have a legal loader record 
type in positions 2,3 and H was read. The contents of the record 
are printed, and are lost for further processing. The loader 
continues as if this had been and end-of-file. 

3. PROGRAM BUFFER OVERFLOW. 

Fatal. The core storage acquired for the loading of the next 
control section is not large enough to hold the control section. 
This error is intercepted by MTS and treated as a reguest for more 
space by the loader. It should never appear. 

4. XXXXXXXX IS MULTIPLY DEFINED. FIRST DEFINITION USED. 

?lon- fatal. Two object modules containing the definition of the 
given external symbol have been loaded. The first definition of the 
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symbol is the one actually used in all references to the symbol. 
The second definition is ignored entirely in loading. 

5. ESD/RID TABLE AREA OVERFLOW. 

Non-recoverable. The area used by the loader for internal tables is 
not large enough to hold all the information necessary to load your 
program. You may take one of the following actions to reduce the 
table requirements of the program: 

a. Re-order your program so that frequently referenced external 
symbols are defined before they are referenced. This will 
reduce the amount of space required to hold BLD information. 

b. Reduce the number of external symbols used by your program. 

c. Pre-process your program through a LINKAGE EDITOR to reduce both 
the number of control sections and amount of unresolved BLD 
information. 

6. ESID XXXX RELOCATION FACTOR UNDEFINED. 

Non-recoverable. Information on an ESD, TXT, REP, DEF, RID, or END 
record is to be relocated relative to the symbol which has the 
specified ESID. However, either no symbol has that ESID, or the 
symbol which does have that ESID is not the name of a control 
section and hence does not have a relocation factor associated with 
it. Common causes of this error are 

a. Mixing up the order of the object module records. 

b. Leaving object module records in a file which contains a newer, 
but shorter object module so that the loader attempts to process 
these old, obsolete records. 

c. Placing the ENTRY pseudo-op before the CSECT pseudo-op for the 
CSECT containing the external symbol in assembly code. 

D. Referencing an external symbol which is defined within the 
current assembly with a V-type adcon, 

7. ESID XXXX UNDEFINED. 

Non-recoverable. An address constant or channel command word 
references the symbol with the specified ESID within it's 
expression. However, no external symbol has been given this ESID in 
the object module being processed. This message is caused by the 
same errors as listed under error message 6 above. 

8. XXXXXXXX IS AN UNDEFINED SYMBOL. 

Fatal. The external symbol specified has been referenced by at 
least one of the object modules loaded, but has not been defined. 
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HT S Errors or Program Interrupts During Loading 

The loader does not check the address specified on TXT and EEP record! 
to see if the address is actually within the legal range for the contro; 
section. Instead, it dutifully loads the data on the record as requested, 
An illegal address may cause the loader to generate a program interrupt, 
The cause of the interrupt will usually be an addressing or protectioi 
violation. The address of the instruction at fault will be within th< 
first few pages of the machine memory. 

It also is possible that MTS errors will develop during loading whicl 
usually are not the fault of the loader. For instance, a bad file wii: 
cause an error. 
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LOADER LIBRARY FACILITY 

The dynamic loader has associated with it a very primitive library 
facility. The facility consists of three control records, namely LCS, LIB, 
and RIP, records. The LCS record is used to cause referenced but not yet 
defined symbols to be defined from an in-core table if they are defined 
there. The LIB record is used to selectively load the object module which 
follows or is pointed to by the LIB record only if the module name has been 
referenced but not yet defined. The RIP record is used to handle forward 
references and multiple entry point problems in the one-pass library. A 
set of symbols may be pre-defined. These are defined at the initialization 
of the loading process and cannot be re-defined by the user. 

The System (Public) Library 

The HTS system library facility consists of an in-core dictionary of 
resident symbols located at LCSYMBOL and a file of object modules with the 
appropriate control records in the file *LIBRAHY. The action taken by the 
loader with respect to system symbols is as follows: 

1. A small set of pre-defined resident system symbols are defined. 
These cannot be redefined by the user. 

2. The user's object modules are loaded. 

3. If after loading all of the user's object modules any symbols remain 
undefined: 

a. A pass is made of the file *LIBBAfiy to selectively load object 
modules which define thus far undefined symbols. 

b. The table at LCSYMBOL is searched for any symbols still 
undefined. 

Note that if only pre-defined and resident system symbols are ref- 
erenced, the pass over the library can be eliminated by enclosing an LCS 
record referring to LCSYMBOL after the last object module. Several seconds 
can be eliminated from the loading time in this manner. 



Loader Library Facility 347 



MTS-298-0 
12-1-67 



Optional Librarie s 

Optional libraries may be concatenated to the end of the user specifiet: 
source. Object modules from the optional library will be selectively 
loaded after all modules preceding it in the user specified source hav« 
been loaded and before the system library is scanned. The optional librar] 
may be either a public library, as the Scientific Subroutine Package in tht 
file *SSP, or a private library created by the user. 

A private optional library consists of the object modules the use] 
desires in his library together witii the necessary LIB and HIP control 
records to define the module names, entry points, and references for th< 
selective loading feature of the loader. Although the user can construd 
such a library himself by inserting appropriate LIB and EIP records in witJ 
his object modules, this task has proven formidable enough with larg< 
libraries that a program has been written that analyzes the object module: 
that form the library and generates the library complete with all LIB an< 
HIP records. More details can be found in the description of the fil< 
*GENLIB in section MTS-280/27it55. 

Optional libraries are referenced by concatenating them to the end ol 
the user specified source. For example, the contents of the file -LOAI 
might be loaded allowing reference to the user optional library MYLIB anc 
the SSP library by the following EON command. 

$SUN -LOAD+HYLIB+*SSP *SINK* 

Pre- De fin ed Sym bols and Low Cor e Symbol Dict i onarie s 

The dynamic loader allows external symbols to be pre-defined at the 
beginning of the loading process. It will also search an "external symboJ 
dictionary" for the definitions of external symbols which have beer 
referenced but not yet defined whenever an LCS record is encountered. Bott 
of these facilities are available through the LINK, LOAD, and XCTI 
subroutines. They are a convenient way to allow the programs loaded via 
LINK, LOAD, and XCTL to reference routines or data items which are alread] 
loaded. This allows the user to set up some semblance of an overlap 
structure. 

Both the pre-defined symbol and "low-core symbol" capabilities require 
tables called external symbol dictionaries. An external symbol dictionarj 
consists of {12*N+4) bytes, where N is the number of external symbols ii 
the dictionary. The dictionary must begin on a full-word boundary. The 
first word of the dictionary contains N, the integer number of symbols 
entered in the dictionary. The rest of the table consists of externa] 
symbol entries, each being twelve bytes long. The first eight bytes of a 
symbol entry contain the EBCDIC name of the symbol, left- justified witi 
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MYEXTSYM DC 


F'4' 


DC 


CIS'EXP' 


DC 


A (EXPRTN) 


DC 


CLS'PUNT' 


DC 


A (PUNT) 


DC 


CLS'GEN' 


DC 


V{GENRTN) 


DC 


CLS'NCTCH&R" 


DC 


V(NXTCHAS) 
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trailing blanks. The last four bytes of the entry contain the value of the 
symbol as a full-word integer. 

As an example, suppose that a language scanner is to be broken into an 
overlay structure consisting of a scanner which links to a different module 
for each type of statement. Each statement module may in turn refer to the 
subroutines EXP, PON, GEN, and NXTCHAR to scan the next expression, print 
on error message, generate output, and acquire the next character, 
respectively. An external symbol dictionary to define these symbols might 
be: 

Four Entries 

Defines EXP 

Internal, different name 

Define PONT 

Internal, same name 

Define GEN 

External, different name 

Define NCTCHAR 

External, same name 

Notice that it matters not whether the symbol is external or internal in 
the routines already loaded. It may even have a different name in the 
program already loaded. 

Now these symbols and the definxtions given above might be passed on to 
a program to be loaded using LINK, LOAD, or XCTL via the second parameter 
to those subroutines. The symbols in the above table would then be 
appended to the symbols which MIS normally pre-defines and would become 
defined during the initialization of the loader. These symbols can then be 
referenced by the object modules being loaded. No object module can 
redefine any pre-defined symbols, however. So these external symbols are 
reserved symbols to the program being loaded. 

The external symbol table constructed above could alternatively be used 
as a "low-core" symbol dictionary. The loader would search the external 
symbol dictionary for the definitions of external symbols which have been 
referenced but not yet defined whenever an LCS record referencing the 
"low-core" symbol dictionary was encountered. The advantage of this method 
is that the program being loaded can define its own symbols with the same 
names as some of the symbols in the low-core symbol dictionary without 
conflict — the program's own definition will be preferred. 

In order to reference the low-core symbol dictionary, the loader must 
have an external symbol defined which is the base of the table. This can 
be accomplished by making the name of the table a pre-defined external 
symbol. For instance, in our example above we might have the second 
parameter of the call upon LINK, LOAD, or XCTL point to the following 
table: 

PREDEF DC F'1« One entry 

DC CLS'HYEXTSYH' Define MYEXTSYM 
DC A (MYEXTSYM) 
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Then the occurrer-ce of an LCS record referencing the symbol MYEXISYM will 
cause each symbol contained in that external symbol dictionary to be 
defined with the value given in the dictionary if it has been referenced 
but not defined by the object modules loaded thus far. If the object 
modules loaded define any of the symbols in the table, the definition given 
by the modules will over-ride the dictionary definition. 

It should be pointed out that the symbols defined as pre-defined symbols 
or in low-core symbol dictionaries may have as their values the addresses 
of any items in the loaded program which the user wants to reference in the 
program to be loaded. For instance, the address of a subroutine, a common 
section, or a variable might be passed on. For furthermore, the address 
given as the definition of an external symbol need not have the same name 
or even any name in the already loaded program. It is just an address 
which is associated with EBCDIC characters in the table to form an external 
symbol definition for the program to be loaded. 

When an already loaded program calls LINK, LOAD, or XCTL to load another 
program, the loader starts fresh in the loading of the new program. None 
of the symbols in the loaded program are available to the program to be 
loaded, unless explicitly passed on via a pre-defined symbol or low-core 
symbol dictionary. Likewise, symbols in the program being loaded can be 
passed back to the already loaded program only via the fourth parameter for 
LOAD. Hence there is usually no problem of conflicting symbol names in 
programs which are loaded via LINK, LOAD, and XCTL. 
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INTEfiNAL SPECIFICATIONS 



This major section describes tlie internal structure and workings of the 
MTS system. It is designed for the edification of all those interested and 
for the use of the systems programmers working on the system. No user 
should ever attempt to directly call any of the subroutines which might be 
listed in this section. 
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FI LE AWD D EVICE MAHflGBMBNT 



This section is concerned witii how files and devices are handled 
internally, at the level of a user of the file subroutines. The file 
subroutines are separately described in section MTS-350. 
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MTS INTERNAL SPECIPICATIONS 
FILE AND DEVICE MANAGEMENT 



INTRODUCTION 



The basis of file and device management is the File or Device Usage 
Block (FDUB) . This kind of beast is attached to logical functions, such as 
SCARDS, SPRINT, SPUNCH, AFD, SOURCE, etc. A given FDUB IS pointed to by 
exactly one "logical device". It in turn "points", by means of an LDN if 
di?iS^id-a Fcl location if file, to an appropriate entry for the Physical 
device it is fastened to. Since these information blocks for physical 
devices or files may have more than one FDUB pointing to them, each bas a 
use count, so that it will be known when the device can be released or file 
closed. 

T-he information block for a file is a File Control Block (FCB) . Except 
for the use count, name, and the chain- pointer, the information in it is 
used only by the file manipulation subroutines. 

The information block for devices consists of a number of parallel 
tables, indexed by LDN. 

The general sequencing for an I/O call is as follows: the user CALLs (OS 
type I) a public entry (such as SCARDS) which goes to the the Device 
support Routines Interface prefix (DSRI prefix), *^i«=\^<=^°^^^^^^„^^^ 
appropriate Device Support Routine (DSR) and goes to it. The DSR returns 
to the Device support Routines Interface postfix (DSRI postfix) , which 
finally restores registers and RETURNS to the user. More specifically: 

PU BLIC ENTRY 

The Public entry saves registers in the save area, identifies what is 
the location of its FDUB, and whether the call is READ, WRITE, or other. 
It then transfers to the DSRI prefix. 

DSRI PREFI X 

DSRI prefix establishes necessary addressability and the location of 
DSECT. It checks FDUB location to see if is zero - if so this logical 
device" (e^. SCARDS, SPUNCH, etc.) was never set up and the user is 
prompted thither define it now or cancel. If the FDUB refers to a file 
and this file has not been opened an attempt is made to open it. If a tiie 
does not exist or a device is unavailable the user is prompted to enter a 
repLclment or cancel. At the time SCARDS, SPRINT, SPUNCH, SERCOM were set 
UP, the device type was checked to see if it was an input or output device 

File and Device Management 353 



MTS-321-0 
12-1-67 



^L^^!^ ^ ' It.l^^ input/output bit in the FDUB was set accordingly. The 
devices for READ and WHITE could not be checked then, so they are checked 
now to make sure that it is an input type device for BEAD and^output tvoe 
device for WRITE, and the FDUB input/output bit is set approp?Ste!y ^11 

slVclir ?ro»'^he"^ra:;Ir/°"'^"" "^^ ^^^ appropria?^'"S5rouS; Ts 
itun^wJ^t ^ transfer vector pointed to by the FDOBSBH field of the 
FDOB. The third argument of the call (modifiers) is tested to see if 
fhr?nn/''^ ^^ ^°' ^*?^ -^^ifiers from the call and the default modifilJs in 
the FDUB are appropriately combined and placed in the rightmost three bvtoS 
of the FDOBS field of the FDOB. If the call is for output and the "reSjn 
line number" bit is off or the "trim" bit is on, a fake parameter list fs 

the MTS DSECT so It can be modified for the "trim" bit and with a fourth 
^^?;^r^^' ^^^ ^"^^ "^^ sequential with the "return line nSmber" bit off 
(since the user is not required to supply such in this case). 

The FDUBCL region of the FDOB is of main use in sequential access- the 
user does not supply a number, so the one in the FDOB xl kept as a curren? 

tH FD^BIL^fielf anf ;H/"°'^f°^" sequential call, the FD^BCris added ?o 
tjie FDOBIL field and the result placed where the user's callinq seauenoe 
specifies the line number should go. caximg sequence 

If output and case conversion is wanted, it is done now, to the line the 
U5erls_callinq sequence indinat^c.. ' -^-i^-J^^SS-the 



A prefix character is set up, either the single character from PREFIXC 
bit%i':;o;''''""'^'' ^^f^"" "^^^'^ ^^^^^^5 sequence), Iccording as tZ prefix 

bit IS not or is set. resno^'+i wqI w ^ yi-ci-J.* 



The DSR error bit in FDOBS is set to zero. 

Finally, if the attention latch is not si 

mention has come through since the la<5t 
transferred to the DSR. "^" -i,«.a^xua; , control is 



.^^li't^^^^L ^^ ^^^ attention latch is not set (indicating a non-immediate 
t^'tT.ltl'.^t.'^r.: ^'l""^^ --« *^- ^-t I/O operation), cont^^l"*' 



DSR 



DSR 



is set Mnnnf.*^! f^^"^^ ^(° operation requested. If the peel modifier bit 
is set (input), a line number is peeled off the front of the line and 

postfix? ' *'' "^^^'^ argument list. Control is transferred to SI dISi 
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DSBI PO STFI X 

If the DSR error bit is 1, the message whose length is in GR2 and 
location is in GR3 is typed out and the return is set to INLOOP unless 
SETIOEER has been called. DSBI postfix takes the line number from the 
user's parameter list and puts it in FDUBCL. If this was an input call and 
case conversion was wanted, it is done now. Unless the 
implicit-concatenation-off bit is set, the line (if input) is checked for 
"$CONTINUE WITH FDname" which signifies a change of file or device for this 
logical input device. If the return code is 4 or the ending line number is 
exceeded and this FDDB is not the last one in a concatenation the next FDOB 
is set up. Finally, the registers (saved at the public entry) are restored 
and a return is made. The return code was set up by the DSR. 
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File or Device Osage Block DSECT Definiti 



on 



FDBDCT 


DSECT 




FDDBS 


DS 


F 


* 






* 






* 






* 






* 






* 






* 






* 






* 






* 






* 






* 






* 






FDUBLN 


DS 


F 


FDUBBL 


DS 


F 


FDDBCl 


DS 


F 


FDD BEL 


DS 


F 


FDUBIl 


DS 


F 


FDDBSBR 


DS 


F 


FDUBSCR 


DS 


F 


FDUBNAM 


DS 


F 


FDDBDS 


DS 


F 


FDOBCH 


DS 


F 


* 






FDUBL 


EQU 


♦-FDBDCT 


FDUBAL 


EQU 


FDUBL+1*i* 



SWITCHES - INCLUDES "MODIFIERS" 
BYTE 1: BIT 0=0 DEVICE 
1 FILE 
BIT 1=0 INPUT 

1 OUTPUT 
BIT 2=0 NO INDEXED OP 

=1 INDEXED OP 
BIT 3=0 NO DSR ERROR 

=1 DSS ERROR 
BIT 4=0 FILE NOT OPEN 

=1 FILE IS OPEN 
BIT 5=0 FDUB IS OK 
=1 FDUB IS BAD 
BYTES 2,3,4: RESULTANT MODIFIER BITS 
FCB LOCN OR LDN 
BEGINNING LINE NUMBER 
CURRENT LINE NUMBER 
ENDING LINE NUMBER 
INCREMENT 

SUBROUTINE LOCATION 
SCRATCH (SEQUENTIAL POINTER) 
BACK POINTER TO WHO'S USING IT 
DEFAULT SWITCHES 
CHAIN TO NEXT (FOR CONCAT FILES) 

LENGTH 

ACTUAL LENGTH-INCLUDING CHAIN LINK 
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MTS - INTERNAL SPECIFICATIONS 
FILE AND DEVICE MANAGEMENT 

STEUCTURE OF DEVICE TABLES 

These tables are indexed by LDN 

1) DEVTBLS 1 word/entry 

Contains switches 

IN USE Byte 1 x'OV - In use bit 

OPPEND x'02' - Operation pending on 

this device 



2) DEVTBLT 1 word/entry 

contains TYPE of device [4 char BCD] 



3) DEVTBLN 1 word/entry 

Contains NAME of device [4 char BCD] 



H) DEVTBLU 1 word/entry 

Use count for device in question. 



5) DEVTBLC 1 word/entry 

Header for lists of space allocated by device routines. All 
storage allocated by DSR should be chained togetiier by pointers 
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^oi. ^ t ^.v*°f^ °* ^^""^ ^^"""^ s° it can be automatically 
released when the device is released. All storage on the chain 
must be system level storage. cnam 

5) DEVTBLP H double words/entry 
Contains parameters for device. 

rouSnef" ^ Jr?^ intended as parameter region for unit check 
routines. Last four woras provide space for two CCW's. 
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DEVICE SUPPORT ROUTINES (PSR) - SPECIFICATIONS 

With the idea that the code for most devices will not be permanently 
resident, but will be brought into a buffer as needed, the following 
structure is set forth. 

Ml of the routines to service a particular device will occupy a single 
file. The "entry point" of this file (probably - but not necessarily - the 
first location) will be the locatxon of a list of adcons, each pointing to 
the entry for the particular subroutine in question. These are, in the 
order they will appear: 

1. INITIALIZATION 

2. DITCH 

3. GETFROM 

4. WRITEON 

5. SET ATTENTION 

6. MAITFOR 

7. RELEASE 

[This list is not necessarily complete.] 
The description of each of these follows. 



Common Information 

Each will be called as follows: 

GRO will contain FDUB location. 

GR4 will contain the DSECT pointer. 

GR5 will point to a list of adcons, the first of which points to 
the subroutine LINNBH which peels line numbers off the front 
of a line and converts them. The third word in the list of 
adcons, points to a list of 6 full words giving the offset 
from the front of the DSECT of the 6 device tables in the 
order they are described elsewhere. 
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GR11,12 will have the appropriate bases. 



'GR13 



will point to a save area into which the appropriate save 
has been done. This area may be accessed but not changed. 



GR14 will contain the return location. 

GR15 will contain the location of the first location in the 
subroutine. 

Each should return as follows: 

(a) For GETFHOM and WRITEON do not restore reg- 
isters from save area. Do BR 14 with 
GR0,GE1,GR4,GE10-14 the same as they were when the 
routine was called 

(b) Others - standard OS return. 
For both cases GR15 should contain the return code. 



li. INITISLI ZATI OM 

On entry, in addition to what is specified above, GR1 will contain a 
location to transfer to if the device routines should decide at any time 
the person is to be signed off. [Appropriate closing out will be done at 
this time, and then the DITCH entry will be called. Calls to the other 
entries preceding the DITCH call may be ignored, ] 



2^ DITCH 

On this entry, everything will have been released and/or closed out 
except the master source/master sink device (s) and any vital storage 
associated with them, such as FDOB, FCB, etc. This is called only fpr 
master source. This subroutine is responsible for making sure, in the 
appropriate way, that the current user has been removed from that device. 
When a return from this subroutine is effected, it signifies a no-user 
condition. 



GETFSOM 



On entry, in addition to what was specified above, GH1 will contain the 
location of a parameter list, GR2 will contain the location of prefix 
character (s) to be output at the front of the line, GR3 will contain the 
number of prefix characters. The modifiers provided by the user as the 
third argument in the parameter list will have been combined with the ones 
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following the FDname and the resultant directive bits placed in the FDDBS 
field of the FDDB. For each pair of associated modifier bits, exactly one 
of these bits will be on. Hence bit testing for modifiers should be done 
in FDOBS and not in the parameter list. Testing and appropriate action 
taking for the prefix bits, trim bits and the case conversioa bits are done 
in the DSEI ; the DSR is responsible for acting on the rest. 

Line numbers are for the most part handled by the DSfil. The only case 
that the GETFROH DSE must handle is if the "peel" modifier or bit is set. 
In this case the routine must peel off the line number, convert it via 
LINNBR, and return it to the user's parameter area. In no case should the 
DSE change the line number information in the FDOB; this is taken care of 
by the DSRI. 

The parameter list is described in MIS-252. The subroutine shall obtain 
the requested data and then return. The return code should be zero for 
normal return, and H for EOF return. 

If an error is detected, the location of an error comment should be 
placed in GR3 , it's length in GR2, a return code >4 in GR15, and the DSfi 
error bit should be set in FDOBS. 



lU WRITEpN 

On entry, in addition to what was specified above, GK1 will contain the 
location of a parameter list, Gfi2 will contain the location of prefix 
character (s) to be output at the front of the line, GE3 will contaxn the 
number of prefix characters. The parameter list is described in IlTS-252. 
The subroutine shall output the data as specified and return. The return 
code should be zero for a normal return. 

If an error is detected, the location of an error comment should be 
placed in GR3, it's length in GB2, a return code >4 in GH15, and the DSE 
error bit should be set in FDDBS. 



5^ ATTE NTIO N 

This is called only for the master source. On entry, in addition to 
what was specified above, GRI will contain a zero or location that can be 
ca lled if an attention or pseudo-attention (from full-duplex devices) 
occurs. If GRI contains zero then all further attention interrupts should 
be inhibited. This call should be made with DSECT and basie registers set 
up, and with reg containing the location at which the interrupt occurred 
or zero if unknown in which case the attention will be processed later. 
Also register 13 should point to a save area and register 1 to an area 
containing the general registers (in the order to 15) at the time of the 
interrupt. The occurrence of an "attention" should inhibit further of the 
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same. 



If a return is made (before another set_attention call) , this means 
enable further attentions (RC=0) or inhibit further attentions (RC=^) , and 
return to what was interrupted. 



WIITFOR 



This subroutine is responsible for waiting, in the appropriate way, for 
the next user to appear at the given device. Hhen a return from this 
subroutine is effected, it signifies a new user has been sensed and things 
should start up again. This is normally called (for MSOUBCE only) upon 
initial start-up, to wait for the first user, and thereafter after a DITCH 
call which got rid of the previous user. If the device is capable of 
producing an answer back then when WAITFOfi returns register 1 should 
contain the location of a one byte count followed by the answer-bacJt. 



5E1SASE 



This IE called only for devices that are not the master source. It is 
the last subroutine called before the device is released, and should make 
sure aporopriate close-out action is taken. It should neither release the 
device nor the storage associated with it which shall have been put on the 
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PBOCESSOE INTERNAL SPECIFICATIONS 



This section contains descriptions o± the internal workings of various 
processors in the system. 
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LOADER INTERNAL SPECIFICATIONS 
Introductio n 

The dynamic loader itself is a small, re-entrant, system-independent, 
resident subroutine which processes loader input records, producing the 
linked program in core storage and printed output. The loader itself does 
not perform input/output operations or acquire storage for the control 
sections it loads; all this must be provided by the routine which calls 
upon the loader. Because such proDlems are left to the system in which the 
loader resides, the overall flow or the loading process as seen by the user 
is more dependent upon that system than upon the loader itself. It can be 
said that any similarity between the loader and the loading process as seen 
by the user is purely coincidental. 

The loader is a subroutine which may be called several times to 
accomplish one loading process. Whenever the loader returns to the routine 
which called it, it makes available to that routine a status word which 
indicates the exact status of the loading operation at that time. If some 
error condition existed which the calling routine could correct, it could 
correct the condition and call the loader again to continue loading. Hence 
it is possible for control to bounce back-and-forth during the load process 
until finally all the smoke clears and the program is loaded. 

This manual shall assume that all otner loader manuals and the writeups 
for the $RUN and SLOAD commands and LINK, LOAD, and XCTL subroutines have 
already been read. The next few sections of this writeup will describe the 
loader as a subroutine. No attempt will be made to explain the interaction 
of the loader with MTS until the subroutine description has been completed. 

Name 

The name of the resident subroutine which accomplishes the loading 
process is UMLOAD. This name appears in the map of resident system 
symbols- 



Function 

The function of OMLOAD is to link and load one or more object modules, 
each consisting of one or more control sections, leaving the executable 
program in a specified region of core. The loading procedure is done in an 
"interactive" mode with the calling program. Input/output routines must be 
provided by the calling program. 
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Calling Sequence 

the calling sequence for DMLOAD is a standard OS/360-Type 1 calling 
sequence, with the exception of the save area. The so called save area is 
a large area which must contain its length in its first four bytes. The 
front of this area is used as a standard save area. The remainder of it is 
used as the psect (changeable storage) for OMLOAD. Be-entrant code and all 
that you know. The register conventions are: 

GB01: Address of the first element of a parameter list. The parameter 
list is explained in detail below. 

GB13: address of the first word of a region of core which will be used 
by the loader as a save area and psect. The beginning of this 
region must be set up as an OS/350 save area. The first word of 
this region must contain the length of the region in bytes. This 
region must be at least 728 bytes long. Actually, to make the 
loader internal tables of anywhere near usable size this area 
should be at least 4096 bytes in length. 

GBI"*: Address of the return location in the calling program. 

GB15: Address of the entry point of the load subroutine (DMLOAD). 



Parameter List 

The parameter list for OMLOAD is a standard OS/360 parameter list, with 
the exception that many of the parameters which themselves are addresses 
are contained in the parameter list instead of being pointed to by elements 
of the parameter list. Hence it would be a little difficult to write a 
call upon OMLOAD in a compiler language. An explanation of each parameter 
follows: 

PAB1: The full-word address of a subroutine which can be called to read 
the next input record. The calling sequence for this subroutine 
is assumed to be identical to the calling sequence for the system 
subroutine SCARDS. 

PAE2: The full-word address of a subroutine which can be called to 
write the next output record. The calling sequence for this 
subroutine is assumed to be identical to the calling sequence for 
the system subroutine SPRINT. 

PAR3: The full-word address of the first word of a region of core in 
which the program will be loaded. The first word of this region 
must contain the length of the region in bytes. It is possible 
to continue loading with a new region if the last region was not 
long enough to hold the remainder of the program. This capabili- 
ty will be discussed later in the section on error recovery. 
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PAFtt: The full-word address of the origin of an initial external symbol 
dictionary. This feature allows external symhols to be pre- 
defined befora the actual loading operation takes place. If this 
parameter is zero no symbols will be pre-defined. The format of 
this initial external symbol dictionary will be discussed below. 

PAR5: The full-word address of a loading status word. The first three 
bytes of the loading status word must be set to zero before the 
first entry to the load subroutine. Upon a return from the load 
subroutine these bytes will have bits set to indicate the exact 
status of the loading procedure. The loading procedure can 
usually be continued by correcting any indicated errors and 
calling the loader with these bytes of the loading status word 
unchanged. The last byte of the loading status word can be set 
by the calling program to control the amount of printed output 
generated by the loader. The meaning of the bits within the 
loading status word will be discussed below. 

PARS: The full-word address of a full-word in which the load subroutine 
will return the entry point of the loaded program. The entry 
point is determined in the standard manner from information on 
ESD,TXT and IDT records. 

PAR7: The full-word address of a full-word in which the load subroutine 
will return the number ot bytes used in the current load buffer. 
If this address is zero, the value will not be returned. The 
load buffer is the region pointed to by the third parameter. 

PAE8: The full-word address of the first word of a region of core in 

which the current external symbol dictionary will be returned. 

If this address is zero, the external symbol dictionary will not 
be returned. 

PAE9: The full-word address of a full-word in which the load subroutine 
will return the length of the next control section to be loaded 
if the loading procedure is terminated by a full load buffer. If 
this address is zero, this value will not be returned. Loading 
can be continued by calling the load subroutine with parameter 
three pointing to a new region of core which is at least as long 
as the next control section. 



Return Sequence 

The return sequence for OMLOAD is a standard OS/360 Type 1 return 
sequence. The register conventions used are: 

GBO-IU: Restored to original contents during call. 

GE15: A return code indicating the severity of any detected errors: 
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Normal return. No errors were encountered. 

H Non-fatal error return. Errors were encountered, but the program 
can probably be executed as loaded. 

8 Fatal error return. Severe errors were encountered during 
loading. The program probably is not capable of being executed 
successfully. 



External Symbol Dictionary Format 

A program which calls UMLOAD can gain access to or cause to be altered 
the external symbol dictionary stored within the loader's psect in three 
ways. First, the program can pre-define external symbols by having as 
parameter four the address of an initial external symbol dictionary. 
Second, the program can obtain the current definitions of all symbols at 
the time of load termination by having parameter eight point to the area in 
which the loader should leave a current external symbol dictionary. 
Finally, symbols which have been referenced but are not yet defined can be 
defined from an external symbol dictionary pointed to by an LCS record. 
All of these dictionaries have identical formats. It should be remembered 
though, that this is not the format of the table used internally by the 
loader. It is the format of an external table through which information 
can be passed back and forth between the loader and the calling program. 

An external symbol dictionary consists of (12*M+4) bytes, where N is the 
number of external symbols in the dictionary. The dictionary must begin on 
a full-word boundary. The first word of the dictionary contains M, the 
integer number of symbols entered in the dictionary. The rest of the table 
consists of external symbol entries, each being twelve bytes long. The 
first eight bytes of a symbol entry contain the EBCDIC name of the symbol, 
left justified with trailing blanks. The last four bytes of the entry 
contain the value of the symbol as a full-word integer. An undefined 
symbol has 000000 as its value. 
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I Number of entries 



Name of the 

first symbol 



Value of the first symbol 



Jame of the 

second symbol 



Value of the second symbol 



Name of the 

last symbol 



Value of the last symbol 
External Symbol Dictionary Format 



Error Recovery and Restart Procedures 



The load subroutine has been designed to allow the load process to be 
continued, perhaps with some corrections, by calling upon the loader again 
after it has already returned from loading. This is accomplished by 
presenting the loader with the save area (psect) it has used up to the 
present point in the loading process and a loading status word with the 
first three bytes identical to those in the one it last returned. It is 
essential that the return code and loading status word returned by the 
loader be understood to take advantage of this continuation procedure. For 
this reason, both of these are described in more detail below. 



Return Codes 



1. 



Normal return code 
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A normal return code indicates that as far as can be 
determined, the load process has been completed successfully and 
the program is ready for execution. The load process was 
terminated by either an LDT record or an END-OF-FILE return from 
the input routine. Loading can be continued if desired; for 
instance, to link another control section to all that has been 
loaded already, but it is very unlikely that anyone would want to 
do something like this. The loading status word will have only 
bit 1 on to indicate that some loading has been accomplished, 

2. Non-fatal error return code 

A non-fatal error return code indicates that some errors have 
been detected during the load process, but they probably aren't 
serious enough to prevent the program from being executed. In 
some cases, this assumption may not be valid. The loading status 
word will have bit 1 on to indicate that some loading has been 
accomplished, and will have other bits on to indicate the 
particular errors detected. Loading can always be continued, if 
desired, after a non-fatal error return code, 

3. Fatal error return code 

A fatal error return code indicates that at least one error 
has been detected during the load process which is serious enough 
to jeapordize any meaningful execution of the program for the 
moment. It is possible that some correction can be made and 
loading continued, although not all fatal errors can be corrected 
without completely restarting the load process. An undefined 
symbol is an example of a fatal error which can be corrected by 
continuing loading, while overflowing the loader internal tables 
is an example of a fatal error which can be corrected only by 
restarting the load procedure from the beginning. Bits within 
the loading status word are set much like for non-fatal errors, 
with the exception that bit may be on and if on indicates that 
loading cannot be continued. 



Loadin g Status Word Forma t 

The loading status word is broken into two parts. The first three bytes 
are bit-control switches which indicate the current status of the load 
process. These bits iBust all be zero when the loader is first called to 
begin loading, and must not be changed if the loader is called to continue 
a previously started load. The last byte of the loading status word is 
used to control the amount of printed output produced by the loader. This 
byte can be changed by the calling program at any time to vary the amount 
of output. Both of these parts of the loading status word are described in 
more detail below. 
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I I i i I 

I Status Bit-Switches | Print Control | 

I II I I 



8 lb 24 31 

Format of the Loading Status Sford 

Status Bit-Switches 

The first three bytes of the loading status word are bit- 
switches which indicate the current status of the load process. 
The following list describes the meaning of an on condition for 
each bit. 

BIT-0 A non-recoverable error has been detected. Loading 
cannot be continued. Loading can be restarted, 
however, by correcting the cause of the error, re- 
positioning the input file at its beginning, and 
calling the load subroutine with the first three bytes 
of the loading status word set to zero. 

BIT-1 This bit is always turned on when the loader returns to 
the calling program. it simply indicates that some 
loading has been accomplished. it is used by the 
loader to determine if loading is being continued or 
started from scratch. 

BIT-2 The next control section to be loaded is longer than 
the available space remaining in the current load 
buffer. This is a fatal although recoverable error. 
The length of this next control section is returned via 
parameter nine if that parameter address is non-zero. 
The number of bytes actually used in the current load 
buffer is returned as usual via parameter seven if that 
parameter address is non-zero. It is likely that some 
space at the end of the load buffer has not been 
utilized and can be used for some other purpose, if 
the first control section encountered was longer than 
the load buffer no space in the buffer will have been 
used and the entire buffer can be reused for somf other 
purpose. Loadxng can be continued by calling the load 
subroutine with parameter three pointing to a new load 
buffer at least as long as this next control section. 
The input file must not be positioned before recalling 
the loader if loading is to be continued,, 

BIT-3 The last input record read was longer than 256 bytes. 
This is a fatal and non-recoverable error. 
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BIT-4 The last input record read was not a recognizable 
loader input record. This is a non-fatal error and 
loading has been terminated as if this record was an 
end-of-file. The contents of the guilty record are 
printed with the loader output. 

BIT-5 a load map has been started in the loader printed 
output but has not yet been completed. This is used by 
the loader to prevent spurious maps on multiple calls 
and returns from the loader. This is only an internal 
switch of the loader. It does not indicate that an 
error has occurred. 



BIT-6 At least one external symbol has been multiply-defined. 
This is a non-fatal error. The first definition of 
each multiply-defined symbol has been used. 

BIT-7 The external symbol dictionary/relocation dictionary 
table has overflowed the arefa available to it. This is 
a fatal and non-recoverable error. The error can be 
corrected only by restarting the loader either wi-th a 
larger psect (save area) or with a re-ordered input 
deck which requires less table space. 

BIT-8 The external symbol identifier (ESID) which specifies 
the symbol whose relocation facto^ is to be used in the 
current address computation is either not defined or 
the associated symbol does not have a relocation 
factor. This is a fatal and non-recoverable error. 
Several causes of this type of error have been put 
forth in section MIS-295. 

BIT-9 The external symbol identifier (ESID) which specifies 
the symbol whose value is required in the next address 
computation is undefined. This is a fatal and non- 
recoverable error. This error is caused by the same 
types of conditions which cause bit 8 to be set. 

BIT-10 An external symbol which is referred to in the program 
has not been defined. This is a fatal although 
recoverable error. The address constants which refer 
to this symbol have not been altered. If loading is 
continued and the undefined symbol is subsequently 
defined, all references to it will be rectified 



BIT-11 



BIT-23 



correctly. 



These bits are not in use yet. 
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Print Control 

The last byte of the loading status word is used to control 
the amount of output printed by the loader in the following way. 
Every type of printed output which can be produced by the loade? 
belongs to a certain class of printed output. Every class, with 
the exception of the class for fatal error messages, has 
associated with it a bit in the fourth byte of the loading status 
word. An output line is printed only if the bit associated with 
its class is turned on. Of course, fatal error messages are 
always printed. The class numbers have been assigned so that if 
the class numbers for all classes to be printed are added up and 
the fourth byte of the loading status word is given this value, 
the desired print control is in effect. A list of the class 
numbers, the associated loading status word bits, and a descrip- 
tion of each class of output follows: 

CLASS BIT DESCRIPTION 

— All fatal error messages except the 

error message for undefined symbols 
and the error message for a load 
buffer overflow. 

1 31 Non-fatal error messages. These 

can be considered warnings of pos- 
sible error conditions. 

2 30 Information lines, such as the line 

giving the entry point address. 

'* 29 Positioning or format lines, such 

as blank lines or the lines of 
dots. 

8 28 Symbol reference lines. These 

lines, if printed, form a reference 
table for all of the external sym- 
bols, giving the assigned core 
address of every adcon referencing 
the external symbols. 

16 27 The error message stating that the 

load buffer has overflowed. 

32 26 The error message stating that a 

symbol is undefined. 



Output classes 16 and 32 were created so that errors which are 
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normally corrected automatically by the program calling the 
loader can have their error messages turned off. 



Genera l Organ ization of the Loader Psect 

When the load subroutine is called, it must be provided with an 
extra-long save area with the length of the area stored in the first word 
of it. This save area is then used as the psect (changeable storage) for 
the loader. This allows the loader to be re-entrant. 
The general organization of the loader psect is as follows: 



000 



048 



OAC 



2D8 



Length of this region 



Save area for the use of UMLOAD 



Save area provided for the use of subrou- 
tines called by DMLOAD. 



Local storage for OMLOAD including input 
and output area 



Loader external symbol dictionary table 



Area available for the expansion of the 
loader ESD and BLD tables 



Loader relocation dictionary table 



Organization of the loader psect. 
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Note that the loader begins its external symbol dictionary table righ 
after the fixed-length information within its psect. Furthermore, i 
builds its relocation dictionary table starting at the end of the psect, a; 
defined by the length in the first word of the psect. Hence both table; 
may grow into the unused space between them. If the tables do eve] 
overlap, the loader returns with a fatal and non-recoverable error. 



Eore Details on the Loader Structure 

Many details of" the loader have not yet been presented. For instance, 
the structure of the loader's internal tables and the steps taken t< 
process each type of loader input records has not yet been presented. 
These items will not be presented in this manual. Anyone interested i? 
details such as these can find them in the loader assembly listing, as xi 
is well-documented with many comments and paragraphs of explanation. 



The Loader-MTS Inte rface 

As has been stated before, the details of the loading process as seen bj 
the user depend to a great extent upon the manner in which the system uses 
the loader subroutine. Following are just a few of the more pertinent 
details concerning the interface between MTS and the loader. 

''• The first call upon the loader is made with a program or load 
buffer of length zero. This forces the loader to make a fatal 
error return with a program buffer overflow error when the first 
control section is encountered. MTS then calls the loader 
providing it with a buffer exactly as long as the first control 
section. The loader then can load the current control section in 
this buffer, but will have to repeat the process outlined above 
when it encounters the next control section. This forces each 
control section to be loaded into a separate and independent area 
of core storage. 

2« If the loader returns with the fatal error indicating that there 
are undefined symbols, MTS then calls the loader giving it an 
input subroutine which reads the system library file. Hence 
undefined symbols are searched for in the library. 

3- A small number of symbols are pre-defined by MTS. These symbols 
cannot be redefined by a user. 

'*' The setting of the print control byte of the loading status word 

by MTS is a colorful process designed to allow or suppress such 

things as error messages, maps, and dotted lines and depends upon 

whether input is from the library or user specified source and 
whether a is desired or not. The general processing is: 
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A. Set the print control and load the user specified input. 

B. Reset the print control. 

C. If symbols remain undefined load the system library. 

D. If no symbols are undefined and a map was requested load 
the contents of *DUM1!1Y* to get the map. 

E. If no errors and execution desired go to it. 

The setting of the print control byte in the various states is 
given in the following table: 



I Loader input source 



1 1 

Map I No Map | 

H 1 

5 1 1 I 

-I 1 

39 I 33 I 
I J I I 



I User specified source 
I 



I *LIBEAEY or *DUMMy* 
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FILE ROUTINES 



This section describes the internal structure of a line file, and give: 
the calling sequences for the internally used subroutines to handle thes< 
files. 
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FILE FORMAT - GENEBAl DESCBIPTIOH 



Allocation of space an d catalogin g 

Space allocated to files, and the existence of them, is recorded in an 
IBM-type VTOC. All information in and about the VTOC is maintained in 
standard OS format with the exception of "TYPE 5" records (available space) 
which are not quite correct. All routines using the disk use the standard 
system subroutines to allocate and release space for files, as well as for 
creating and destroying the files themselves. 



Files wr itten through system su br outines fSCASDS. SPONCH. etc) 

Files written through these subroutines, and maintained through them, 
are kept in a format conducive to easy updating by line number. Thus every 
line in such a file m uj gt have a line number associated with it. Such files 
are also limited to a size of 218 records on the disk, the implications of t 
which and reasons for which will become clear later. I 

Each such file consists of three logical components, which will 
hereafter be referred to, with some consistency, as the track index , line 
director y, and line file . ~ 

The track ind ex is used simply to associate a physical disk address 
(disk pack name, cylinder, track, and record address) with a logical record | 
number (integer between 1 and 255) which is used internally. There is a 
one-one correspondence (hopefully) which associates a single logical record i 
number with each of the physical records allocated to the file. ' 

The line directory indicates where each line of the file, is, as a 
logical record address, offset within that record, and how long the line I 
is. This directory consists of fixed length entries, ordered by line 
number, so that it can easily be searched and modified. It only p oints to 
the lines themselves, which are resident in: 

The line fi le contains the actual EBCDIC (or whatever) lines in the 
file. This file is unordered, and wnat pieces are used or unused is 
recorded only in the line directory. The lines in the line file may be of 
variable length, there may be unused 'holes' in the middle of or at the end 
of tracks, and it is in general useless without the line directory to make 
sense out of it. 
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Physical form at of the comp onents 



THE TRACK INDEX 



Each entry in the track index is 16 bytes long, and there is one for 
every physical record allocated to this file. The entries have the 
following format: 



BYTES 0-5 
BYTES 6-7 
BYTES 8-9 
BYTE 10 

BYTES 11-15; 



Name of disk pack the record is on 

Physical cylinder address 

Physical track address 

Physical record address (always 1 for a 2311, 1 or 2 
for a 2314) 

Unused 



The logical record number associated with a physical record entry is 
determined by the position of the entry in the track index, in the FOfiTEAN 
sense, which is to say that the first entry in the track index is logical 
track number 1, the second is number 2, and so on. 



THE IINE_DIRECTOBY 

Each entry in the line directory is 8 bytes long, and there is an entry 
for every line in the file, and also entries for 

1) All the 'holes' or unused pieces of tracks that are partially used 

2) The as-yet-unused space at the end of the file. 
Entries in the line directory have the following format: 



BYTES 0-3; 



BYTE 



BYTE 



BYTES 6-7; 



The number (as a 32-bit signed integer) of the line 
which this entry describes (see below for special 
'hole' entries) 

Logical record number of the track where the line 
itself resides. 

Character (byte) count for the line, i.e., how long it 
is. 

Offset, indicating how far from the beginning of the 
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record indicated 
is in bytes) . 



in byte 4 this line begins. (Offset 



The entries in the line directory are ordered by line number, and 'hole* 
and 'end-of-f ile« entries are given the highest possible line numbers so 
that they will naturally appear at the end of the directory. 'Hole* 
entries look just like normal entries except that they have a line number 
of hex 'VFFFFFFE'. Such entries indicate that there is an unused piece of 
line file at the place and of the size indicated in the second four bytes 
of the entry. • The entry indicating where the file ends (beyond which, all 
space is available) has a line number of 'TFFFFFFF' (it is always the last 
entry in the directory) , and in this entry byte 5 is always 0, and bytes 
6-7 indicate the next available byte on the record (it and all succeeding 
bytes are presently unused) . All logical records beyond the one indicated 
in byte U (which is the one being tilled) are also unused. 

THE LIWE FILE 

The line file may have all sorts of garbage in it, as when new lines ate 
added to the file they are simply placed on top of whatever was there, and 
the deletion of lines is recorded only in the line directory, the line 
itself, or pieces of it, are left around in the line file until the space 
is reused. 



Hov the comp o nents are tied togethe r 



Since all three of the components must exist within the area assigned to 
a single file, it is necessary to find wnere each of them is. This is easy 
for the track index, because it is always in the first record of the first | 
extent assigned to the file, and begins at the eighth byte of the record I 
The length, in bytes, of the track index is in bytes 0-1 of the record. | 

We must now make a distinction between "normal" and "extended" files. 

A normal file is small enough so that both the line directory and track 
index may be contained in the first record (logical record #1). If this is | 



the case, the line directory immediately follows the track index, 
length, in bytes, is given in bytes 2-3 of the record. 



and its 



If the file is too big to be so cozy, then only the track index (TI) 
will be in track #1, and the line directory (ID) will be elsewhere. But 
where, you say? Ah-ha. The answer to that lies in bytes 4-7 of record #1. 
In any case where the TI and LD cannot exist together on record #1, the TI 
alone will be on record #1, and will point (as will be seen), to the first 
ID record , and the LD records (it there are more than one) will be linked 
together, all through bytes 4-7 of each LD or TI record , which are defined 
as follows: 



BYTE 



LOGICAL RECORD # OF PHEVIOaS HECOED IN 
TION (FOR TI THIS WILL BE 0) 



TI-LD COMBINA 



- I 
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BYTE 



BYTE 



LOGICAL RECORD # OF MM. HECOED IN TI-LD COMBINATIOl 
(FOR LAST EECOHD THIS IS 0) 



LAST OS ED EECOfiD OF THOSE ASSIGNED TO 
SIGNIFICANT ONLY IF BYTE 5 = 0. 



FILE. 



THIS IJ 



BYTE 7: 



SELF-IDENTIFIES. LOGICAL RECORD # OF THIS RECORD 



When the TI and LD are not entirely contained in a single record, w< 
speak of the file as being extended. Record #1 contains the TI only (an< 
bytes 2-3 =0) , and byte 5 points to the first record of the LD (which ma] 
point to further records in the LD) , and in each record of the LD, bytes 
0-1=8 (the header length) and bytes 2-3= It, the number of bytes of the LI 
contained in this track. 



File size limitations 



1) 
2) 
3) 



The TI must be contained in a single record (3520 bytes) , so a fil< 
cannot be assigned more 218 records. 

A file may not have more than 16 non-contiguous blocks of tracks 
(extents) assigned to it. 

No line in the file may be longer than 255 bytes. 

A file may be assigned space on only a single disk pack (this 
restriction may too may go away) 
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FILE OPERATION SUBBOUTINES 



FILE CONTROL BLOCK DESCRIPTION 



The following table describes the file control block in such a way that 
one could generate either a DSECT or set of EQU's to reference it in ones 

program. 



FCBN 


DS 


4F 


FCBLK 


DS 


F 


FCBCS 


DS 


F 


FCBVC 


DS 


6X 


FCBCC 


DS 


H 


FCBTC 


DS 


H 


FCBEC 


DS 


X 


FCBBC 


DS 


X 


FCBAI 


DS 


X 


FCBEC 


DS 


X 


FCBVF 


DS 


6X 


FCBCF 


DS 


C 


FCBBF 


DS 


C 


FCBTF 


DS 


H 



ALLOW SIXTEEN 
LINK TO NEXT 
CHECKSUM FOR 
6-BYTE NAME 
2-BYTE CYLIND 
TRACK ADDRESS 
RECORD NOMBER 
COUNT OF ASSI 
ACCESS INFORM 
COUNT OF EXTE 
VOLUME NAME F 
CYLINDER ADDR 
RECORD NUMBER 
TRACK ADDRESS 



BYTES FOR ALPHABETIC FILE NAME 
FCB, OR ZERO 
FILE CONTROL BLOCK 
F VTOC VOLUME 
ER ADDRESS OF VTOC 

FOR VTOC ENTRY 

OF VTOC ENTRY 
GNED BUFFERS 

ATION (SUCH AS 'READ ONLY'). 
NTS ASSIGNED TO THE FILE. 
OR LINE DIRECTORY 
ESS FOR FILE 

FOR FILE, 

FOR FILE 



**** 



FOLLOWING 16BYTES REPEATED UP TO BUFFER COUNT 



FCBFB 


DS 


C 


FCBBA 


DS 


3C 


FCBBL 


DS 


H 


FCBBV 


DS 


6C 


FCBBC 


DS 


H 


FCBBE 


DS 


C 


FCBBT 


DS 


C 



FLAG BYTE INDICATING BUFFER STATUS 
MEMORY ADDRESS OF BUFFER 
LENGTH OF ASSIGNED BUFFER 
NAME OF VOLUME RECORD NOW HERE 
CYLINDER NUMBER OF RECORD IN BUFFER 
RECORD NUMBER OF RECORD NOW IN BUFFER 
track ADDRESS OF RECORD NOW IN BUFFER 



The size of a file control block is dependent on the number of buffers 
allocated to the file. In general the block size must be at least 48+1 6N 
bytes, where N is the number of buffers assigned to the block. Normally 
there will be need for only two buffers per block, so the block should be 
at least 80 bytes in length. 



The 
EQD's. 



following section describes the file control block in terms of 



FCBN EQU 
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FCBLK 


EQO 


16 


FCBCS 


EQO 


20 


FCBVC 


EQO 


2ii 


FCBCC 


EQO 


30 


FCBCT 


EQO 


32 


FCBKC 


EQO 


34 


FCBBC 


EQO 


35 


FCBAI 


EQO 


36 


FCBEC 


EQO 


37 


FCBVF 


EQO 


38 


FCBCF 


EQO 


44 


FCBRF 


EQO 


45 


FCBTF 


EQO 


46 


***** 






FCBFB 


EQO 


48 


FCBEA 


EQO 


49 


FCBBL 


EQO 


52 


FCBEV 


EQO 


54 


FCBAC 


EQO 


60 


FCBBE 


EQO 


61 


FCBBT 


EQO 


62 



The flag byte (FCBFB) is used to describe the status of each buffer 
assigned to the file. Each bit has the following meaning- 

BIT 7 1 Indicates buffer in use 

BIT 6 1 Indicates buffer must be written 

BIT 5 1 Indicates buffer not standard 

BIT 4 Not used 

BIT 3 Indicates record has never been written 

BITS 0-2 Priority of record in buffer 

'Non-standard' means that the file system will make no attempt to manage 
the data in the buffer, and will not use that particular buffer in the 
course of normal operation, and will not close the buffer if sych a call is 
executed. 

If the user makes changes to the file control block (such as adding a 

new buffer) he should re-compute the checksum, or call 'CHKSOM' to do the 

job. He should also be careful to maintain the 'BOFFEE COONT' byte 
correctly. 
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FCB layout: 



FIXE NAME AS 16 BYTES 



WITH TRAILING BLANKS 



Link to next FCB, or if none exists 



Checksum for file control block 



Volume name of VTOC entry (first 4 bytes) 



volume name (cont'd) | Cylinder address 

H r 



Track address of VTOC | record nbr| buffer cnt, 

r 1 ' 



FCBAI i FEBEC | volume name, file addr. 

I I 



Continued name of volume where file resides 



Cylinder addr. of file| track address of file | 

_^_____ I ____ 1 





8 
12 
16 

20 

24 

28 

32 

36 

40 

44 

BOFFEBS 
#1 #2 #3 



I Flag byte | address of assigned buffer 

1 >- ■ 

I Length of buffer 

I- 



I 48 64 80 

^ 



52 68 84 
continued name of volume for record in buffer | 56 72 88 



I volume no. in buffer | 

J 1 



H 



cylinder and track address presently in buffer | 60 76 92 



(Additional 16 byte entries up to buffer count) 
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External File System Subroutines 

GENERAL INFOfiMATION 

As will be quickly obvious, these subroutines do not fit into any OS 
category, and in fact are not even consistent in their behavior amongst 
themselves. 

All require the address of a working area (not an OS type save area) in 
GR13, and said area must appear on a double-word boundary. 

Where parameter lists are needed, they also must be on full-word 
boundaries. Throughout these writeups (to avoid confusion) the words 
•address' and 'pointer' are used synonymously and randomly, to refer to a 
24-bit absolute memory address. 

The file subroutines all save and restore all the registers except GEO 
and GR15. GR15 always has a return code when exit is taken from the 
subroutine, and GEO is used in device management. The file subroutines all 
assume logical device number 5 is free, and they use this number in all 
device operations. 

The piece of information needed by almost every subroutine is the 
address of a file control block. This block is built in memory when the 
file is OPEN'ed (or created), and contains all sorts of pertinent 
information about the file. It should not be touched (even accidentally, 
if you can manage that) except by the file subroutines. If it does get 
wiped out or screwed up, your file will almost certainly go the same route. 
If you are extremely unlucky, you may even muddle some other file that 
doesn't even belong to you. 
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SUBROOTINE CHKSUM 



to both check and recompute the checksum in a file control 

File control block address 

Return address 

Address of CHKSUM 

Note: no save area required 

A return code will be in GR15 

indicates checksum in FCB was correct 

4 indicates it was not, but CHKSUM has recomputed it, and 

the FCB now has a correct checksum. 

Description: You should always call CHKSUM before and after modifying the 
FCB. But very few routines do, so don't worry about 
incorrect checksums. It only gets a writeup because it is 
there, and people might wonder about it. 



Name: 


CHKSOH 


Function: 


to bot 




block. 


Parameters: 


GR1: 




GR14: 




GR15: 


Returns: 


A retu 
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SDBEOUTINE CLOSE 

Name: CLOSE 

Function: To write out any modified data contained in buffers assigned 
to the file. 

Calling sequence: GRI: File control block address. 

GR13: Pointer to a scratch area of 300 bytes. 

GR14: Return address 

GR15: Address of CLOSE. 

Returns: GE15 has a return code 

Normal return code is 0. 

Return code of U indicate the checksum in the FCB was 
incorrect. Don't worry about it. Nobody maintains the 
checksum anyhow. The file will still be (correctly) closed. 

A return code of 8 indicates some serious error occurred. 
Likely causes: an unrecoverable disk error, badly clobbered 
FCE, or bad FCB address. 

Description: CLOSE looks through the buffers assigned to the file, 
writing out any that need writing, and turning off the 
must-be-written bits for those buffers. 

It is possible to read or write a previously CLOSE 'd 
file, but it should then be CLOSE'd again when you are 
really through with it. 
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SUBROUTINE CJ3EATE 



Name: 
Function: 



Parameters; 



CREATE 

To 1) Make an entry in the Volume Table of Contents on a 
specified disk pack for a file by the specified 

name. 



2) Make an initial space allocation for that file 
the same disk pack. 

3) OPEN the file so that it may be written or read- 

GB1: Pointer to a parameter list. 

GR13: Pointer to a working area of 475 bytes 

GR14: Return location 

GR15: Address of CREATE 



on 



Parameter list; 



Returns; 



Description; 



BYTES 0-15 
BYTES 16-19 
BYTES 20-23 
BYTES 24-25 
BYTES 26-31 



BYTE 
BYTE 



32: 



File name, blank-filled, left- justified 

FCB link or 

Address of 3520 byte buffer 

Length of that buffer 

Volume name of disk pack on which to place 

this tile. If this parameter is all (hex) 

zeroes, the file will be put on any available 

system volume. 

Number of tracks to initially allocate. 

Used to create the FCB. 



Note that up to BYTE 25 the parameter list is the same as 
that for OPEN. 

On return, a return code is left in GB15 as follows: 

means AOK. 

U means the file already exists (CREATE does not open the 
file in this case - it just punts) 

8 means there is no space available (either on the disk pack 
you asked for, or anywhere if you were indifferent) 



12 means there was some serious error, 
ware. 



Hardware or soft- 



CREATE just looks to make sure the file does not already 
exists, and if it does not, it creates a VTOC entry for that 
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file. It then allocates the requested number (up to 100) of 
tracks (not records) to the file in a single extent. The 
file is then initialized and opened as through it wer^ going 
to be a line file. 
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FILE OPERATION SUBBOOTINES 
SUBROUTINE DESTRY 

Name: DESTBY 

Function: To de-allocate all disk areas previously allocated to a 

file, and destroy the Volume Table of Contents (VTOC) 
entry for the file itself. 

Calling sequence: GB1: pointer to a 16-tiyte file name 

GE13: pointer to a scratch area (575 bytes) 

GR14: address of return location 

GR15: address of first location in DESTRY 

Returns: GE15 has return code 

Normal return code is 0, indicates successful completion. 

Return code of 4 indicates the file couldn't be found to 
be destroyed. Sorry about that. 

Return code of 8 indicates something else went wrong. 
Probably something wrong with the subroutine, but then it 
might be in the call such as not providing enough scratch 
area, etc. 

Description: DESTRY first of all locates the catalog entry for the 

named file, and assuming it finds that, releases all 
extents allocated to the file. It then marks the VTOC 
entry itself as available for a new entry. 
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SUBROUTINE GETDSK 



Name; 



GETDSK 



Function: 



Parameters; 



To acquire some space for a specified file, and record 
additional allocation in the VTOC entry for that file. 

GS1: Address of a parameter list 

GR13: Address of a 400 byte working area 

GE14: Return address 

GE15: Address of GETDSK 



the 



Parameter list format: 

BYTES 0-3 
BYTES 4-7 
BYTES 8 



Returns ' 



FCB address 

Where to put extent address 

Number of tracks (not records) requested 



A return code is left in GS15 as follows: 



Description: 



indicates AOK. An extent address has been placed in the 
address given in tne parameter list, and looks as follows: 

BYTES 0-5: Disk name where it is 

BYTES 6-9: CCTT of beginning of the extent. 

4 indicates there is not enough space available, on the 
volume on which this file resides, to satisfy the request. 
The parameter list is modified (BYTE 8) to indicate the 
largest extent (in tracks) available on this volume. (It 
may be 0) 



8 indicates the 
happen. 



usual serious snark that should never 



GETDSK searches the chain of available disk space, trying to 

find a single extent to fill the request. If none is 
available, it determines what the largest extent available 
is, and modifies the parameter list to indicate that. 

If an extent is available, the smallest one which is 

large enough is allocated to the file, and the VTOC is 
updated in indicate that the allocation has been made. 
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SOBROUTINE OPEN 

Same: OPEN 

Function: To search for a specified file, (if it exists) set up a file 
control block for it, and initialize the buffers for 
subsequent READ or WRITE operations. 

Calling sequence: Pointer to a parameter list (and future file control 

block area) . 
GR13: Pointer to a working area of 350 bytes. 
GRI'*: Return address 
GR15: Address of OPEN. 

Returns: GR15 has a return code as follows: 

is the normal return. 

H indicates that the named file could not be found anywhere. 
(This generally means it isn't anywhere.) 

8 indicates something serious (like an unrecoverable disk 
error or an error in the calling sequence) has occurred. 

Parameter list: 

BYTES 0-15: Name of the desired file. left- justified, 
blank-filled 

BYTES 16-19: Address of next FCB link or 0. 

BYTES 20-23: Address of a buffer to be used for reading and 
writing the file. 

BYTES 24-25: Length of this buffer (in bytes) 

Description: If the file named in the parameter list can be found, the 
parameter list (both the data and the memory where the list 
is) is used to create a File Control Block for the file. 

This supplied buffer is then used to read in the first 
record of the first extent assigned to the file. If this 
looks like a line (system) file, it is checked to see if 
this file is extended, and in this case an additional buffer 
may be acquired and added to the FCB. 

It should be emphasized that the parameter list should be 
contained in an area at least 80 bytes long, and that this 
area will have become an FOB if the return code is normal. 
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SOBEOUTINE READ 



Name; 



Function: 



Parameters: 



READ 

To read a specif xed line from a specified file into a 
specified area (now you even know what the parameters are) . 

GR1: Pointer to a parameter list 

GB13: Address of a working area of 400 bytes 

GB14: Return address 

GE15: Address of READ 



Parameter list format: 

BYTES 0- 3: 
BYTES 4- 7: 
BYTES 8-11: 



Return code: 



Description; 



Number of desired line (32-bit signed integer) 
Where to put the line 
Address of file control block 



A return code is always left in GR15 as follows: 

indicates all went well 

U indicates line does not exist. The entry (see below) for 
the following line is returned. 

8 indicates line is beyond any in file 

12 is some serious error indication. 

For returns of and 4, GRl contains additional information. 
For an RC of 0, GRl indicates the number of bytes in the 
line (guaranteed to be < 256) . For a RC of 4, the number of 
the following line is returned in GRl. 

READ attempts to locate a line with the number given. If 
one does exist, it moves it to the specified area. If there 
is no line in the file with that number, it determines if 
there is no line with a number that high, or locates the 
line following the (non-existent) one asked for, and makes 
the appropriate indication on return. 
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SUBROUTINE BE&DL 



Name: 
Function: 

Parameters: 
Seturns: 



Description; 



SEADL 

To determine the line number of the last number in the file 
and return it. 

GR1: Address of file control block 

GR13: Address of a HOQ byte working area 

GR14: Return address 

GR15: Address of READL 

Return is always made with a return code in GR15. 

indicates o.k. return, and in this case, the line number 
of the last line in the file will be in GB1 

4 indicates some kind of a nasty error. 

READL searches the file for the last line in it, determines 
the number of that line and returns it. In the case of an 
empty file (no last line) a line number of is returned. 
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SUBEOUIINE BEADS 



Name: READS 

Function: To read sequential lines from a file (i.e., like 'READ', 
except the line number is automatically supplied) 

Parameters: GE1: Address of a parameter list 

GE13: Address of a 400 byte working area 

GE14: Return address 

GE15: Address of "READS" 

Parameter List Format: 

BYTES 0-3: Number of first line to be read on first call, 
number of last line read on subsequent calls. 

BYTES H-7: Where to put requested lines. 

BYTES 8-11: File control block address. 

BYTES 12-15: Pointer to a fixed full-word area which will 
be z ero on the first call to READS. Thereaft- 
er READS will use it to store information it 
must have from call to call (so the same 
location must be given with every call, and 
its contents must not be changed between 
calls) . 

Eeturns: A return code is always left in GR15 as follows: 

indicates everything went fine 

H indicates an end-of-file condition 

8 indicates a bad error. 

If the return code is 0, R1 contains the byte count for the line read. 

Description: READS is used when one wants to sequentially access each 
line in a file, without worrying about what the actual line 
numbers. The first call on READS must specify what line to 
start at, and thereafter, each subsequent call will return 
the next line in the file (until the end is reached.) 
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SUBROUTINE fiEIDSK 

Name: EELDSK 

Function: To return to free storage some portion of the disk storage 
allocated to a file. 

Parameters: GB1: Pointer to a parameter list. 

GR13: Pointer to a 400 byte working area 

GE14: Return address 

€E15: Address of SELDSK 

Parameter list: 

BYTES 0-3: Pointer to file name. 

BYTES 4-7: Pointer to a 14 byte extent descriptor. 

The extent descriptor has the following form: 



BYTES 0- 5 
BYTES 6- 9 
BYTES 10-13 



Volume name (6 bytes) 

Address of beginning of the extent as CCTT. 

Address of last track in the extent as CCTT. 



Returns: A return code is always left in GR15, as follow: 

indicates a normal return 

4 indicates file VTOC entry could not be found 

8 indicates extent to be released isn't even allocated to 
the file 

12 indicates something even worse. (hard to say what) 

Description: RELDSK very simply removes the specified extent for the VTOC 
entry for that file and returns it to the list of available 
extents. It's returning it to the list that is so messy, 
and this is the module which is the only section of the file 
routines not compatible with OS/350 file formats. (It does 
not order the TYPE 5 record entries, for those of you who 
read system programmer's guides) 
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SOBROOTINE SCfiTCH 

Name: SCRTCH 

Function: To erase all the lines (records) in a file without releasing 
the disk area assigned to the file or destroying the file 
itself. 

Calling sequence: SRI: File control block address. 

GR13: Address of a working area of 350 bytes. 

GR14: Return address. 

GR15: Address of SCRTCH 

Returns: GR15 contains a return code as follows: 

is the normal (like OK) return. 

4 indicates an error of some seriousness. Probably GB1 
didn't really contain an FCB address 

Description: SCRTCH essentially removes all the lines from a file, but 
keeps all the disk storage allocated to it. Thus you have 
an empty file, which is why the command that calls this 
subroutine is called $EMPTY. 
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Name: 
Function; 



SUBROOTINE WRITE 

WRITE 

To add, replace, or delete a line in a specified file. 



Calling sequence: 



GR1: 
GR13: 
GR14: 
GR15: 



Parameter list format: 

BYTES 0- 3: 
BYTES 4- 7; 
BYTES 8-11; 
BYTE 12 : 



Returns: 



Description: 



Pointer to a parameter list. 

Pointer to a working area (of 475 bytes) 

Address of return location 

Address of WRITE 



File control block, address. 
Number of line to be written. 
Address of line to be written. 
LengtJi of line to be written. 



A returns code will be in GR15 on return as follows: 



is the normal return 

4 an error return. This almost always means 
too big for the disk pack or the software. 



the file got 



The worst case path through STHITE is long and tortuous, but 
the average path is quite short and simple, WRITE always 
requires a line number as an argument. If a line, with that 
number already exists in the file it is replaced by the one 
given to WRITE. If there is no line by that number, the 
supplied one is added to the file (at the place specified by 
the line number) . 

If the line is bytes long, it is deleted (or the call 
is ignored, if there is no line by the number given in the 
call) . 

WRITE takes care of allocating more space to the file, as 
needed, up to a limit of 218 records. This allows a file to 
be about 800,000 characters long (about 10,000 card images). 
In figuring maximum file size one must remember that every 
line incurs an overhead of 8 bytes (see writeup on file 
formats) , in addition to its actual length in characters. 



Pile Operation Subroutines (DESTRY) 399 



MTS-35H-0 



12-1-67 



FILE SUBPOUTINES INTERNAL STROCTORE 



In addition to the subroutines called by the MIS supervisor, the file 
system contains other subroutines (hereafter called 'internal* 
subroutines) , which are called by the subroutines called by the HTS 
supervisor (hereafter called 'external' subroutines). 

The attempt here is not to carefully define the function and calling 
sequence for each of these subroutines, but rather to give the reader an 
idea of the structure of the file system subroutines in general. 

First, a quick listing of the subroutines and their function. 

DSKOP: Disk operation subroutine executes an error checked disk opera- 
tion on a specific disk. 

VOLGET: Locates a disk pack by its 6-character volume name, and acquires 
it as logical device 5* 

VTOCS: Searches for a file, by name, on the disk packs assigned to MTS 

VOLREl: Allows caller to modify the list of disk packs assigned to MTS, 
by volume name. 

READT: Read in a single, specified track of a disk pack, after locating 
an available spot in the file control block (FCB) to record the 
reading. 

READE: Like 'READT', only it assumes an available buffer entry in the 
FCB is known. 

WRITET: Writes a specified track, in some FCB buffer entry, onto the 
given disk pack address. 

GTZ: Locates a free record (name stands for 'get type 0') in the VTOC 
of a file, returns its address to caller. Also updates informa- 
tion indicating that record is no longer free. 

FLINE: Searches line directories for a specified line. Beturns direc- 
tions for finding the requested line, the number of the next 
line, or an end-of-file indication (it depends...). 

Before discussing the flow of control in the internal routines, there is 
one other table which should be described, and that is the one called 
'DSKTAB', which indicates what disk packs (by name) are available to MTS, 
what physical device (if known) they are on, and their status. 
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Each DSKTAB entry is 124 bytes long (which leaves lots of room for 
status), there is one for every disk pack available to MTS, and the format 
of each entry is as follow: 

BYTES 0-17 Used by disk unit check routines as working area, in 
case of disk errors 

BYTES 18-23 Volume name tor this entry (6 EBCDIC characters) . If 
this area is hex TP's, this entry is ignored. 

BYTES 24-27 Name of device on which this volume is mounted (4 
EBCDIC characters). If this area is hex 'FF's, it is 
assumed that it is not yet known where this device is. 

BYTES 28-123 Data portion of TYPE 4 record for this volume (see 
•System Programmer's Guide' for format.) 

The table is terminated by 4 bytes of hex FF»s in what would be the 
first 4 bytes of the next entry. 

The only three subroutines concerned with DSKTAB are VOLGET, VOLEEL, and 
DSKOP. 

VOLEEL may be called to modify the disk table entries (either adding or 
deleting names) and assign a new modified set of disk packs to MTS while it 
is running. 

VOLGET is called to acquire a disk pack (really a physical device) from 
the system. Under some circumstances this may require a search of all 
available physical devices to see which one the desired volume is mounted 
on. Normally, of course, it just requires a search of DSKTAB, and a call 
to the supervisor GTDNIT routine. 

All disk operations performed by the file system except VOLGET are done 
through the subroutine DSKOP. DSKOP requires that the user already have 
called VOLGET to acquire the appropriate volume, and then requests an error 
checked execution of a specified CCH list- This CCW list must meet the 
specifications given for error checking in the disk unit check routines, 
and in addition must meet the following restriction: 

1. The first command in the CCH list must be an unchained seek. 

2. There must be one or more chained CCW«s following the first, none of 
which may be seeks. 

DSKOP does not check CCW lists for validity of command or data in any 
way. 

The subroutines GTZ and VTOCS are concerned primarily with maintenance 
of the volume table of content (VTOC) of the disk packs assigned to the 
system. 
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VTOCS, when called, searches the VTOC's of all disk packs assigned to 
the system (via DSKTAB) , for an entry with a specified name. Though OS 
names can be up to 44 bytes long, MTS allows (and looks for) only 15 byte 

names. 

GTZ is used to find a 'free' record in the VTOC of a specified volume. 
GTZ will find the first free record (if there is one) in the VTOC, and 
return it's address to the caller. if the VTOC is extended in this 
process, the TYPE 4 record is appropriately updated. 

***NOTE*** 

The general reference for the format of VTOC's records in them, etc, is 
System Control Blocks, Form C28-6628. 



The rest of the internal subroutines are concerned with maintenance of the 
files themselves rather than the VTOC. 

EEADT and WRITET read and write the records of a file. They may be 
called from several of the external subroutines' and WRITET may, in fact, be 
called by READT to write out a track to free a buffer in the FCB. READT, 
when called, searches the buffer entries to find 

1. A buffer which is not in use 

2. A buffer which is of lower priority than the one in use (i.e., the 
record now in the buffer is of lower priority) 

3. A buffer which does not need to be written. 

That is to say, EEADT attempts to use the least important area to read 
the requested track into. It is also possible to call READT with a 
conditional request, it will only read the track if there is a free buffer, 
or one with a lower priority. 

FLINE searches line directories for a specified line. It is called by 
READ, READS, READL and WRITE. It first searches for the record of the line 
directory (if there is more than 1) in which the entry for the desired line 
is to be found, if it is there, and then uses a half-interval search on 
that record to locate the entry. The only subroutine FLINE calls is READT, 
and it can indicate several possible things on return: 

1) Desired entry found (it tells you where the line itself is) . 

2) No such entry (it tells you what the number of the next line is) . 

3) End-of-file (the line you requested has a higher number than any in 
the file) . 

The actual calling sequences for each of the internal subroutines is 
delineated only in the assembly listings themselves, which should also be 
considered the final arbitrator in how the subroutines themselves work. 
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Indexed Words aad Phrases 

♦aro* 028,088 

ASA - - - 003,232 

assembler 003,005,023,083,136,197,208,233 

234,235,247,263,276,285,313,314 
315,322,538,344,501,503,504,505 
506,507,508,50 9,516,521,522,542 
544,548,719,782,783,785,786,787 

ASCII 053,054,075,076,077 

attention 047,049,050,052,058,059,062,075 

078,082,093,095,131,146,190,260 
261,262,3 54,361,363,605 

BAS 004,199,226,732,736,743 

J'atch - - - _ - ... ^^ 

J3 

BCD 063,064,065,107,109,110,111,117 

140,164,179,180,221,224,238,251 
252,271,272,359,582,619,620,680 

binary 053,063,065,080,085,089,138,140 

210,272,277,289,313,314,329,539 
597,598,638,641,648,649,677,726 
727,728,739,777,782,783,784,786 

788 




♦CATALOG • - 003,239 

Cc 089,090,140,199,228,229,230,525 

526,527,528,565,719,725,748,773 

command line 025,046,050,058,059,077,093,099 

108,111,760,762 

COHPL - 143,147 

concatenation 004,085,091,092,125,126,164,165 

184,234,355,618,620,639,641,645 
646,656,665,677 

conversational 061,070,088,156,240,241,533,591 

conversion 058,064,083,107,110,111,138,160 

187,188,213,221,238,290,293,294 



Indexed Words and Phrases 

354,355,534,539,542,546,547,548 
549,550,551,553,556,557,558,559 
564,566,568,55 9,571,572,573,574 
575,581,582,583,585,586,587,588 
619,655,668,675,679,786,787 

c^^^te 021,027,028,029,040,041,042,088 

105,249,258,26 0,389,393,618,648 
658,724,725,763 

data line 025,028,029,058,093 

Data Concentrator 003,005,045,057,070,071,075,076 

077,078, 079,080,094,095,782 

debugging 023,025,027,029,094,221,285,322 

330,591,592,628,715,787 

°^^ 296,322,332,336,339,343,345 

destroy 029,033,041,106,112,391 

devices 004,026,027,040,044,066,070,071 

075,077,079,081,083,085,086,087 
090,091,094,124,125,128,130,131 
141,154,181,301,319,352,353,354 
361,363,364,401,530,719,743,751 
783 

DFAD 004,200 

DFIX ..... 004,201 

diagnostic 259,260,503,506,507,509,511,530 

622,623,726 

dismount . 004,066,069,143,157,202,245,246 

269 

double-precision 200,247,566 

^S^ 151,353,354,355,357,358,359,361 

363 

*DDHHY* 024,087,241,259,295,377 

^'^'"P 029,110,111,114,127,143,159,186 

187,188,223,241,243,244,253,533 
664,752 

D7090 004,143,160 



Indexed Words and Phrases 

EBCD 089,107,109,110,111,140,221,238 

EBCDIC 053,075,076,077,100,107,110,125 

187,188,221,251,252,264,270,271 
272,293,313,348,350,369,379,401 
582,583,680,784 

editing 094,235,283,300,759,760 

EFIX 004,201 



jptv . . 004,024,029,041,042,078,082,085 

^ 087,090,112,119,143,158,208,313 

395,398,546,748,783 



$ENDFILE 026,027,028,041,042,043,113,271 

end-of-file 04' 

07«. 

255,267,271,30 3,305,316,321,344 

371,373,381,396,400,402,728,743 

779 




ENT 



317,323,332 



ENTER • • • 004,023,039,050,052,058,059,078 

091,115,129,203,204,241,24 9,250 
254,255,258,274,279,282,285,290 
309,311,353,622,691 

BSD 169,274,275,296,317,321,322,325 

329,336,338,339,345,368,375,503 
504,505,507,508,513 

EXIT 004,039,066,143,146,156,158,160 

162,163,164,165,166,167,175,176 

182,184,185,189,190,191,192,193 
195,204,217,218,242,267,386,553 
616 

FDname .... 065,066,086,087,088,089,091,125 

130,131,138,149,165,234,251,302 
303,355,363,735 

EDOB 139,155,158,162,164,165,168,184 

198,211,218,353,354,355,356,357 
358,361,362,363,549,550,551,552 

file mark 066,302,305,529 

file 003,005,021,023,024,025,026,027 



Indexed Words and Phrases 



028,029,040,041,042,04 8,049,051 

052,058,059,062,064,065,066,067 

072,075,076,078,079,082,083,085 

086,087,088,090,091,092,093,098 

103,105,106,107,108,110,112,113 

115,117,119,120,123,124,125,127 

130,131,134,135,142,149,150,151 

152,153,154,155,157,158,162,164 

165,169,175,183,184,209,231,232 

233,234,235,23 6,237,238,239,240 

241,242,243,245,247,249,251,253 

254,255,256,257,258,259,260,261 

263,264,265,266,267,268,270,271 

273,274,276,277,278,279,280,283 

285,286,295,296,297,298,299,300 

301,302,303,305,307,308,309,310 

311,313,314,316,319,320,321,337 

338,344,345,346,347,348,352,353 

355,356,357,358,359,361,371,372 

373,376,378,379,380,381,382,383 

384,385,386,387,388,389,390,391 

392,393,394,395,396,397,398,399 

400,401,402,501,503,525,529,530 

531,532,534,535,537,591,66 9,719 

728,733,735,743,759,760,761,763 

766,767,779,782,783,784 

FI-OAT 004,205 

^^^^e 092,105,106,112,115 

^°^^^*N .... 003,005,023,026,027,028,030,031 

032,034,035,041,042,051,052,083 
113,125,138,142,143,147,161,169 
173,182,183,18 5,189,191,192,193 
194,195,198,234,256,257,260,265 
270,271,273,280,295,297,308,315 
380,501,525,527,529,530,531,532 
533,538,539,540,542,591,628,630 
635,668,766,767,769,772,773,774 
775,776,777,782 

FR£EFD 143,162 

FEEESPAC 036,143,163,164 

G°INFO 143,150,162,164,165,342 

<^^^^° 031,139,143,150,158,152,164,165 

184,246,255,269,342 

GETSPACE . . 004,031,036,143,163,164,166,170 



Indexed Words and Phrases 

203,204,206,306,317 

GPAK 258,259,260,261,263 

GDSERID 143,167 

hex 085,107,108,109,110,111,116,199 

287,289,290,292,293,294,326,381 
389,401,532,537,696,727,743,755 
756 

hexadecimal 054,099,100,107,108,109,110,116 

121,126,152,187,188,191,221,243 
247,253,264,267,286,287,289,290 
291,293,322,323,331,332,342,505 
508,522,532,542,553,570,574,727 
728,755,773 

indexed 025,085,089,090,091,103,138,140 

182,185, 189,192,193,195,251,311 
353,357,358,359,530,553,560 

interrupt 023,029,040,049,050,052,059,062 

078,082,107,121,125,146,176,190 
222,223,225,261,292,346,363,538 
539,540,605 



lOH 



539,540,605 

003,004,005,039,083,198,207,208 
209,213,214,501,542,550,551,553 
580,582,585,588 



LAND 144,147 

Lc 089,126,140,620 

I,CS 275,296,317,323,334,337,338,343 

347,348,349,350,369 



LCOMP 



147 



I,DT 041,275,280,296,317,322,331,337 

338,343,368,371,504 

LIB 260,261,296,323,334,336,347,348 

library 003,004,021,023,0: 

mi nft-? nfift infi_l' 



071, 083, 0£ 

12f """ "' 

185 

231 

23« 



,193,195,196,197,226 

231,232,233,234,235,236,237,238 

,243,245,247,249,251 



Indexed Words and Phrases 



253,254,256,257,258,259,260,261 
263,264,265,266,267,268,270,271 
274,276,277,278,279,283,285,295 
296,297,298,299,300,301,302,307 
308,309,310,313,314,315,316,317 
321,323,334,336,347,348,376,377 
501,503,506,522,525,528,535,591 
766,768,777,779,783,784 

limit keyword 096,121,123,129 

liBiits 004,041,096,121,123,129,259,652 

665 

line-delete .», 079,094 

line number 024,028,029,085,090,091,093,094 

097,103,117,119,127,134,135,139 
140,141,165,16 8,182,183,184,185 
189,192,193,195,217,254,255,264 
274,299,310,311,323,334,354,355 
356,358,363,379,381,395,396,399 
759 

I-INK 031,142,143,166,169,170,197,221 

315,316,317,319,320,348,349,350 
357,358,366,371,383,385,389,393 
751 

linkage 033,345 

LINPG 003,004,171,266 

literal-next 076,094 

loader 005,025,041,083,123,124,169,277 

280,285,292,315,316,317,318,319 
320,321,322,323,325,336,337,338 
339,341,342,343,344,345,346,347 
348,349,350,36 6,36 7,368,369,37 
371,372,373,374,375,376,377,504 
507,751 

logical I/O unit 026,027,123,124,164,168,183,184 

197,198,276 

lOE 144,147 

LXOR 144,147 

MCC ......... 089,090,141,232,283 



Indexed Words and Phrases 

HDD 200 

messages 051,071,130,131,149,150,151,152 

153,154,155,273,285,286,302,307 
308,317,338,342,344,374,375,376 
503,506,509,511,525,533,609,630 
769,773,775 

modifier . - 058,077,088,089*090,103,138,140 

141,168,217,232,251,277,283,354 
358,363,512,530,547,555,558,570 
571,572,573,575,583,588,776,790 

modifiers - . 025,077,088,091,117,136,138,139 

165,168,182,185,189,192,193,195 
255,354,356,358,362,363,547,558 
565,567,568,569,570,571,572,587 

mount 004,065,066,069,087,144,175,216 

245,246,268,269 

♦MSINK* . . 088,241,274 

♦MSOURCS* 088,241 

MTS monitor 058,093,094,095,126,134 

NCA 323,333 

♦NEWPORT 026,041,256,270,271,525 

OMIT . 144,177,179,180,181,281 

password 004,086,115,120,126,129 

PEEL 089,139,141,189,192,193,218,354 

363 

PGNTTRP - • 143,176 

*PIL 003,278,591 

plot 144,177,178,180,181,250,259,261 

279,280,282 

prefix 026,046,047,075,077,089,093,094 

095,129,139,140,149,191,234,267 
286,353,354,362,363,575,591,785 

pseudo-device 065,066,086,087,202,245,246,268 

269,303 



Indexed Words and Phrases 

♦PUNCH* 026,041,088,124,193,233,235,277 

295,313,784 

QCLOSE 144,149,153,154 

QGET 144,149,151,152 

QOPEN 144,149,151,152,153,154 

QPUT .' 144,149,151,153 

REP • 296,322,331,336,339,345,346,705 

706 

rewind 004,144,183,184,303,530,532,669 

678,779 

5IP 260,261,296,323,335,336,347,348 

KID 274,275,296,321,322,328,336,339 

340,345,375 

SCABDS . 004,027,028,031,043,051,052,123 

124,125,143,168,185,197,198,212 
217,218,232,233,235,236,237,23 8 
243,245,246,247,249,251,253,254 
255,257,263,264,26 6,267,269,270 
274,277,278,279,283,285,296,299 
300,301,308,310,314,338,342,353 
367,379,530,54 9,550,743,766,767 
769,779 

SDD 200 

SDUMP 109,111,143,186,187,188,291,342 

sequential 066,085,089,090,091,140,141,149 

182,184,185,310,311,338,354,356 
358,396,530,53 4,535,779 

SERCOM 004,027,123,124,143,168,189,212 

217,2 47,254,274,296,302,342,353 
533,538,550,585 

SETIOEHS 004,066,143,190,355 

SETLOG 144,177,179,180 

SHFTL 144,147 

sink 026,027,028,029,041,042,052,071 



Indexed Words and Phrases 



size 



SLT . . 
SN0B0L4 



source 



072,073,076,08 8,103,108,110,117 
124,125,130,142,189,192,232,233 
235,236,238,251,253,258,259,264 
269,270,271,274,277,278,295,297 
299,304,308,313,314,348,362,761 
763,768,784 

064,065,0 66,079,085,105,152,173 
180,250,268,313,367,379,381,383 
399,527,539,540,569,596,600,611 
6 27,640,652,653,656,672,678,692 
694,702,704,738,784 

004,219 

003,023,083,241,295,501,635,636 
637,638,639,64 0,641,6 42,646,648 
655,656,661,66 3,664,668,675,67 9 
680,681,684,688,691,694,697,699 
702,705,708,711,715 

024,025,026,027,028,029,041,042 
052,071,072,073,076,087,088,091 
093,095,113,119,124,130,131,142 
185,232,233,235,237,238,241,243 
264,267,270,271,272,273,274,277 
278,279,285,295,296,297,300,302 
308,309,313,314,316,317,322,338 
348,353,362,363,364,376,377,503 
505,506,507,50 9,516,522,525,526 
527,528,529,533,534,661,735,766 
767,768,769,772,773,778,782,783 
784,788 



SPECIAL 



SPEINT 




004,021,027,043,066,123,124,125 
143,168,178,181,187,192,212,217 
218,232,233,234,235,236,238,239 
243,247,251,253,254,255,264,26 6 
267,270,272,273,274,278,27 9,283 
285,298,299,300,301,302,30 8,310 
317,342,353,367,528,530,549,550 
743,766,769,779 



Indexed Words and Phrases 
SPUNCH 



004,027,123,124,125,143,168,193 

212,217,218,233,234,235,238,247 
249,251,257,270,272,273,277,29 6 
302,304,308,313,314,338,342,353 
530,549,550,75 9,779,784 

SSP 003,091,142,143,144,297,316,348 

status 036,081,298,318,343,366,368,370 

371,372,374,376,383,384,400,40 1 
538,555,582,735,752 

string 058,065,075,083,086,100,126,157 

175,211,216,221,226,241,254,287 
291,295,301,313,501,517,518,522 
543,545,546,565,567,575,595,617 
618,619,620,622,624,638,63 9,642 
643,644,645,646,648,650,652,655 
656,657,661,562,664,665,666,667 
568,669,670,671,674,5 91,705,711 
712,717,721,722,723,724,725,726 
727,730,731,732,733,734,736,737 
738,745,746,747,748,751,752,754 
755,756,757,761,759 

SWPR 004,220 

SYM 322,330 

tape . . 005,045,054,063,054,065,066,067 

068,069,072,073,075,079,091,140 
149,151,154,155,183,184,202,215 
245,246,2 60,26 8,269,277,283,302 
303,304,305,314,530,777,782,784 

tape mark 067,154,283 

teletype 005,023,045,046,047,048,049,050 

051,053,070,076,077,078,089,146 
178,227,228,785 

terminal 001,020,021,023,025,026,040,041 

044,045,046,047,051,0 57,058,059 
60,061,0 70,071,072,0 75,076,077 
078,079,081,082,088,095,095,114 
117,123, 124,125,127,128,129,13 
131,156,189,193,237,250,265,267 
285,286,307,528,589,591,605,608 
621,630,699,719,743,782,783 

translation 053,075,077,199,251,252 



Indexed Words and Phrases 

TEIH 089,139,141,354,363,640,645,656 

678,681,684,691,694,699,702,705 
708,709,713 

tty 072,073,076,095 

TXT . . 264,274,275,296,321,327,336,339 

345,346,368 

OC 058,089,091,126,127,140,283,284 

*UMIST 301,743 

OMMPS 003,081,082,086,283,719 

update 003,302,303,304,305 

WATFOR - 003,023,083,307,308,309,501,766 

767,768,769,771,772,773 

XCTL 142,143,166,169,170,197,315,316 

317,319,320,34 8,349,350,366 

XOE 144,147,148,601,756,757 

1050 003,060,095,126,227,228,229,230 

2250 003,061,249,258,259,260,261,262 

263,310 

27m 005,057,058,059,060,070,073,076 

078,095,126,146,227,228,229,605 

8ASS 003,277,313,314,501,782,783,784 

785,786,787,788,790 



